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MODULE exch$io ZTITLE ‘10 = Device and File I/0 routines’ 


DENT = 'Vv04-000' 
DDRESSING_MODE (EXTERNAL=LONG_RELATIVE, NONEXTERNAL=WORD_RELATIVE) 
= 


~>e-- 


BEGIN 


eRe RAR AAA AAAAAAAAAEAAAAAAAAATAAAAR AAA A AERA AATRE RARER eee 


i® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
i® ALL RIGHTS RESERVED. 


® 
® 
® 
® 
i IS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
i CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
iw COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. * 
® 
® 
* 
® 
* 
* 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
't SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

is 
PITIIIITILITLLIII LLL LLL LLL LiL LLL 
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FACILITY: EXCHANGE = Foreign volume interchange facility 
ABSTRACT: 10 = Device 1/0 Routines 
ENVIRONMENT: VAX/VMS User mode 
AUTHOR: CW Hobbs CREATION DATE: 25-Aug-1982 
: MODIFIED BY: 
v03-003 
; 

i 

i 

i 

; 

i 

ie 
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OOooooooocoooooo 
DOE AR 20 ODNOAUE WIN 0 OD NAME WN $0 ODN NE WN 0 OO NOU EWN 0 OONOUS 


CWwH3003 Cw Hobbs 21-Jul-1984 
Remove a debugging message accidentally left in. 


v03-002 CwH3002 CW Hobbs 12-Nov-1983 
During read and write check tng. make sure to do a $rewind 
if the block is LBN 0. Was giving spurious errors during 
COPY /BOOT operations. 


SoOooooo 
RRRRRRF 


: Include files: 


SOOoOoOoooooo°oo 


MACRO $module_name string = ‘exch$io' %; ! The require file needs to know our module name 
REQUIRE ‘SRCSTEXCREQ' ' Facility-wide require file 
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Sue 10 = Device and File 1/0 routines 

v04 Module table of contents 

3 38 } i } ZSBTTL ‘Module table of contents’ 
; © 155 1 ! Module table of contents: 

3; $) 1 $ 1 i 

; © 1 1 FORWARD ROUTINE 

; 6 1 3 1 exch$io_dos11_count_blocks, 
; 6646 1 1 exch$io_dos11_read,_ 

2 a 160 1 exch$io_dosi1_read_label, 

; 666 161 «1 exch$io_dos11_rewind, 

ae 19 1 exch$io_dos11_set _density, 
; & 0165 1 exch$io_dos11_skip_file, 

3 9 164 1 exch$io_dos11_skip_record, 
: 0 165 1 exch$io_dos11_writeé_label, 
: 71 198 1 exch$io_dos11 awrite. _tape_ mark, 
3 7 0167 1 exch$io_rt ea 

oe = 0168 1 exch$io_rtl1_ read. "y, 

: 74 0169 1 exch$io_rtll_write, 

: 75 0170 1 exch$io_ rtli_write_1 

; 0171 «#1 3 

Ree a HEE 1 

; 78 gi? 1 ! EXCHANGE facility routines 

:; 7 174 1! 

P} 80 0175 1 EXTERNAL ROUTINE 

; 8 0176 1 exch$util_file_error 

; § 0177 ~«+1 3 

ae 0178 #1 

;. 0179 1 ! Equated symbols: 

; 8 0180 1! 

3 86 0181 1 !LITERAL 

3; &f pigs 1! 3 

; 8 0183 «#1 

; 0184 1 ! Bound declarations: 

; we 0185 1! 

; (O91 0186 1 'BIND 

; 692 0187 1! : 


b-Sep-1 


4-Sep~1 


1 
1 


Bee 93:98:88 Waals fea scene ng Sacaexcio.83204°° 


Count blocks to the next tape mark 
Read a block on a dos-11 device 
Read a label on a dos-11 device 
Rewind a dos-11 sequential device 
Set the density on a magtape device 
Skip files on a ite 

Skip records on 
Write a Label on a eS-11 device 

Write a single tape mark on an dos-11 device 
Read blocks from block-addressable device 


' Read blocks one at a time from Sleck-eddressabte device 


Write blocks on block-addressable device 


! Write blocks one at a time on blech=sddressable device 


Signal file error 


2 
(2) 


< 


m 
£5 


ee ee 
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EXCH 10 = Device and File 1/0 routines 15-36 -1984 01:02: VAX=-11 Bliss-32 V4.0-74 P | 
§05~000 exch$io dos11_count blocks (volb) 1 730071382 93:98:88 DL SKSVMGMAS TER LEXCHNG- SRCJEXCIO.B3201°° (3) 
3 1 t's ROUTINE exch$io_dos1l_count_blocks (volb : Sref_bblock) = ZSBTTL ‘exch$io_dos11_count_blocks (| 


1+ 
! 
! FUNCTIONAL DESCRIPTION: 
Count blocks until the next tape mark on a dos-11 sequential device 


INPUTS: 


CONAUE WOO 


OOODO000O 


volb = pointer to a volb which contains the active record stream 


39 

BY IMPLICIT INPUTS: 
8g dosi1 context block hanging off the volb 
04 OUTPUTS: 

3? 

0 

08 IMPLICIT OUTPUTS: 
09 

10 

11 

\¢ ROUTINE VALUE: 


success or error status 
SIDE EFFECTS: 


i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
none 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: none 


$dbgtrc_prefix ('io_dosi1l_count_blocks> '); 


LOCAL 
Status 


BIND 
dosv = volb [volb$a_vfmt_specific] : $ref_bblock ! Format specific block, contains iosb 


Sdebup_pr inet it (‘entry'); 
Sblock-check"(2, .volb, volb, 611); | 
Sblock-check (2, .dosv, dosif 613); | 
Slogic_check (2, (.dosv dos1{$v_position_valid]), 269); ! We should know where we are 


| 
dosi1 context block hanging off the volb 
i 


PIPIPIPPINIPINININIPIPYRSPIPYDIPYPIPIPIPINPIPIPIPINININIPINININININYNY 2 4 2 OS Ss 


HPAII IAI AIR PUIPIPIPIPINPININIDY 2 OO Oo 


PWN OOO NO UE WN O OONO UE WIN "OO ONOUSE 


Start by assuming no blocks, the skip count includes the tape mark 
dosv Cdos11$w_block_count] = -1; 
: Now start looping, we will return from the loop on error or tape mark 
WHILE 1 

BEGIN 
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MEER ELE EES INA A NII RPI NININONININUD 2 2 2 OO SS OO 
SSeS TREN LESSENS FUN AS SRNOORUN SO OMNO EUW mMOSR UE RR AOS Doe 
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are 
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$io_dosli_count_blocks (volb) 14 eet hi 93:98:58 DI 
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xO 
o 


X-11 Bliss-32 V4.0-742 Page 4 
SKSVMSMASTER: CEXCHNG. SRCJEXC10.832;1 (3) 
Issue the io operation to space in the forward direction 


if (status = Sqiow (efn=0, 
chan=.volb FvolbSy channel], 
juneeroc tb erecer Land 
osb=do os osb), 
pisaveny) ‘. 


vuvuvv 


SOOSOSOOOOSOOCOSOOSOOSOSSSOSOCOOOOOSSOOSSOOSOOSOO OOOO OOC OOOO OOOOOOOOCOOOOOO ae 


N 
status = .dosv [dos11$w_iosb_status); 


WN —OOONOULS Ww 


AAAS 


inish up based on the status 
ECTONE .status OF 
Normal means we have a very large file, add the skip count to the blocks and continue to loop 


—- 7 


fss$_normal) : 
BEGIN 


Count the blocks 
dosv Cdos11$w_block_count] = .dosv [dos11$w_block_count] + 32767; 
Set the bits and pieces to reflect that the tape has moved 


PIPOIPIPIPIPIPIPIPIPIPIPOPUPIMPOPIPPOPOPONPOPOPOND 
909 0d 09 0D 09 09 09 09 09 SI NI NI SI SIN NN NIP PAA AAA AAA TTT 
OOWONA VN WN OVOOVNO UE Ws" OWOnour Ji 


SRESLSSELEALAVSLS SHVSARAVIASSSISAF 


Fo oy ee eee PY oY? oF oY ot ot ot ot ot et et et et eh i oh ee ee et et ee ee en nh eh ks nn at et et en 


RIPPON — 9 OO I OP OP OP OP OP YP OS SP OP OS SS ss SS SS SS SY YS YS SS 


1 dosv [dos11$v_be -of tape] = false; 
¢ dosv [dos11$v_en 50f tape = false; 
dosv [dos11$v_tape_mark = false; 
¢ END; 
§ End of file means that we have found the end 
$ 8 {ss$_endoffile : 
§ ; BEGIN 
281 Count the blocks, and note that we are at the next file 
‘ : dosv Cdos11$w_block_count) = .dosv Cdos11$w_block_count] + .dosv [dos11$w_iosb_skipc 
3 : dosv Cdosi1$l-current_file] = .dosv Cdosi1$U_current_file] + 1; 
2 $ Set the bits and pieces to reflect that the tape has moved 
§ dosv dos!1$v_beg_of tape = false; 
dosv Ldosi1$v_en sf tape = false; 
38 90 dosv Cdos11$v_tape_mark = true; 
9 91 
98 3 RETURN true; 
99 9 
00 94 END; 
01 95 ; 
4 9 ! If this is the end, oops 
0 9 ' 
Be 38 Css$_endoftape) : 
i ah 
09 361 stat2; 
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$11 count blocks (volb) 1a-Sep- 138 9}: 96: 3 DISKSVMSMASTER: CEXCHNG.SRCJEXCIO. B32. 79 3}. 


Count the blocks, ar’ note "hat we are at the next file 
dosv (dos11$w_block_count) dJosv Cdos11$w_block_count] + .dosv [dos11$w_iosb_skipc 


WeuwT 


Signal that we have had roblem 


| 
| 
$exch_signal (exch$_dos11_ ‘error, 2, | 
-volb Cvolbsl tt ident_len], volb Cvolb$t vol_ident], .status); | 


Rewind the tape so that the position will be known again 

housh signal (exch$_dos11 ey ! This might take a while, w 
dosv ECdosii$v_error_rewind] = tru 

ta NOT (stat2-= exch$io_dos11 _rewind (.volb)) 


NRETURN »stat2; 
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0 - Device and File 1/0 routines 


0 
8 Return the ss$_endoftape status 
; 3 RETURN .status; 
0 END; 
2 03 | 
; 03 ! Any thing else and we'd better crap out | 
th COTHERWISE) : BEGIN 
2 0 dosv Cdos11$v_position_v»  ..4 = false; ! After an error, we don't know where we are. 
§ P 83 $exch_signal_return (exc 1% dos11_ioerror 
7 33 -volb Cv .o$l_vol_ident " tend, volb Cvolb$t_vol_ident], .status); | 
238 033 END; 
39 O3e TES; 
40 0334 | 
41 0335 END; 
seg 0336 
24 0337 RETURN 0; 
244 0338 1 END; 


Sm on 


FILE 
“BLOCR_ CH NECK 
OGIC 
1_IOER 
NS post POSITION 
-PSECT EXCHSIO_CODE ,NOWRT ,2 


O3FC 00000 -ENTRY ERCHe IO postt COUNT_BLOCKS, Save R2,R3,R4,- 0188 | 


9E 0000 MOVAB sea BLOCK_CHECK, R9 : 
MOVL renee post QpOERROR. “RB : 
06 : 
D : 


ot MOVAB ; | 
a; OO oc 


S BaSSei 


41B00F 3 


co» Ooom 
2-OOmnN 


1B MOVL VOpe sah. R2 
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- P 
exch$io_dosil_count_blocks (volb) -Sep-1 DISKSVMSMASTER:( XEWNG SRCJEXCIO.B3204°° (35 
51 0263 8F 3 3 MOVZ2WL #611, R1 : | : 
0 4 0D VL : ; 
54 Ae DO 000s im, BATREY TH, gmt ocK_coece : 0233, 
; 0036008 D F pO ROVE #3939197, R2 : ; 
6 F ¢ MOVZWL #613, R1 : | : 
0 D C MOVL R3, RO : | : 
69 16 7 JSB EXCHSUTIL BLOCK_CHECK : | ; 
56 es «6 4 4) MOV 2(R3), RG 3 0234) ; 
14 6 ‘ 45 BLBS R6), : : 
7E 0100 8F 3C 00048 MOVZWL #269, -(SP) : | ; 
000000006 BF p> Spode PUSH BEXCHS. BADLOGIC ; 
000000006 09 3 FB 9035 CALLS Ae BSSTOP : ; 
4 A 1 ae 0005C 18 MNEGW #1 ; 0238 : 
E 7C 00060 2$ cLRa=§ : 0252 : 
Ze 7 0006 CLRQ = =( SP) : | ; 
7E 4 00064 CLRL -(SP) : 3 
7E 7FFF i C 00066 MOV2WL #32767, -(SP) : ; 
3 C 00068 CLROQ -(SP) : $ 
1E AS OF 90060 PUSHAB 30(R3) : ; 
26 po 990 9 PUSHL #38 ; ; 
7E 4A Ab 3C 0007 MOVZWL 74(R4), =(SP) : ; 
7E D4 00076 CLRL = = (SP) : F 
000000006 00 OC FB 00078 CALLS #12, SYS$QI0W : F 
52 50 DO 0007F MOVL RO, STATUS : : 
04 5 5 0082 BLBC status, $ : ; 
52 1€ A3 3C 0008 MOVZWL 30(R3). STATUS > 0254 ; 
01 52 D1 00089 3s: CMPL STATUS, #1 : 0262 : 
0B 12 0008C BNEQ 4 : : 
34 «AB 7FFF ©8F AO OOOBE ADDW2 #32767, 52(R3) : 0267 : 
66 3 BA 00094 BICB 14, (R6) ; 0273 ; 
C? 11 00097 BRB : 0258 ; 
00000870 = &F f pt 00099 4$: CMPL pe #2160 : 0278 
34 AB 20 A ib OOA ADDW2 32(R3), 52(R3) : 0283 
OE A3 D6 OO0A INCL  14(R3) : 0284 
66 OA 8A OOOA BICB2 #10, (R6) : 0289 
66 04 88 OOOAD BISB2 #4, (R : 0290 
50 01 b0 908 ROVL #1. rR : 0292 
00000878 aF 52 D1 00084 5$: CMPL STATUS, #2168 : 0298 
2F if 0088 BNE $3 ; 
34 AB 20 A3 A 9 B ADDW2 32(R3), 52(R3) : 0305 | 
5 pd C PUSHL STATUS : 0310. 
69 Ad 9F 0004 PUSHAB 105(R4) : | 
65 A& DD 00067 PUSHL  101(R4) ; 
Q DD OOOCA PUSHL @# : | 
DD OOOCC PUSHL R F | 
"ara FB 000C CALLS #5, LIBSSIGNAL ; 
060000006 BF pd 0000 PUSHL HEXCHS DOS11_POSITION > 0314 | 
67 1 eB D7 CALL #1, LIBSSIGNAL 3 
66 40 BF 8 DA BISB2 #64, (R6) > 0315 
4 DD 0000 PUSHL R4 : 0316 
0000v CF 1 F E CALLS #1 §XCH§10_00S11 REWIND 3 | 
ic 0 F9 QO0E BLBC = STAT2, 7$ ; 
50 Zz Dv O00E MOVL STATUS, RO : i 
} 
| 
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_dos11_read 14-Sep-1984 3: 88 a3 


ear ROUTINE exch$io_dos11_read (volb : $ref_bblock, buffer) = %SBTTL ‘exch$io_dos11_read' 


FUNCTIONAL DESCRIPTION: 

Read one block on a dos-11 sequential device 
INPUTS: 

volb = pointer to a volb which contains the active record stream 
IMPLICIT INPUTS: 

dosi1 context block hanging off the volb 
OUTPUTS: 

buffer - pointer to the buffer to receive the block 
IMPLICIT OUTPUTS: 

dos11 context block hanging off the volb 
ROUTINE VALUE: 

success if label, false if not a label or error status 
SIDE EFFECTS: 


none 


ee ee, 
+ 


$dbgtrc_prefix ('io_dosil_read> '); 


LOCAL 
func ° 
status 
BIND : 5 
— = volb Cvolb$a_vfmt_specific] : $ref_bblock ! Format specific block, contains iosb 


Sdebup, print_lit (‘en 
“check” (2, en rtp 60325 
$Sblock=check (2. .dosv, dos1f, 
$check-call % exch$d Tg 


26); 


ume Fay -volb, TST ae sre OR Seder. position)); 
. (.dosv ree Tsu, position maar), 4 should know where we are 

> (NOT .dosv bgost Sy _tape_mark)) ; And that should be right after a 
> (NOT .dosv Cdos11$v~end_of_taped) 2003ip: i But not at the end of the tape 


$logic_check ( 
$logic_check ( 
$logic_check ( 
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10 = Device and File 1/0 routines 1b-3¢ -1984 01:02: VAX-11 Bliss-32 V4.0-742 P 9 
exchSio dosii_ read 1 730071382 95:98:38 DISKSVMSMASTER: LEXCHNG. SRCJEXCIO.B32; 1 (5) 


39 } Issue the io operation to read the next logical block in the forward direction 
9 


3 § func = lop _reagtblk: : 
; 9 IF .volb Cvolb$v_read check? THEN func = .func OR io$m_datacheck; . 
; ¢ P 0394 IF (status = $qiow (efn=0, 3 
; 30 P 0395 chan=.volb Cvolb$w_channel), : 
; 304 P 39 func=. func 3 
: 305 P 039 iosb=dosv (dos11$q_iosb], ‘ 
: 306 P 0398 pi= buffer. ; 
; 307 99 p2=512)) ; 
: 309 aS MR. dosv [dos11$w_iosb_status] 
; 8 rtf status = .dosv ([dos11$w_iosb_status]; : 
3 1 498 Finish up based on the status ‘ 
; 8 Be02 SELECTONE .status OF : 
: 314 40 SET 3 
s 3515 40 ' Status is normal : 
: 16 408 } : 
; i Be 9p Css$_normal]) : BEGIN : 
3 4 Bets If the block isn't 512 bytes long, pad it with nulls . 
; 321 061 ; IF .dosv Cdosi1$w_iosb_bytecnt] NEQ 512 3 
3 $$ 0414 THEN 3 
: 0415 4 BEGIN 3 
; 4 0416 4 LOCAL : 
3 5 0417 4 adr, : 
: 326 0418 4 len; 3 
; 327 0419 4 len = 512 = .dosv [dos11$w_iosb_bytecnt); : 
: 328 peed 4 adr = .buffer + .dosv CdosT1$w_Tosb_bytecnt]; 3 
3 $3 0421 4 CHSFILL (0, .len, .adr); 3 
; 3 bess END; : 
3 3 8 Set the bits and pieces to reflect that the tape has moved : 
; «334 0426 dosv dos}|3v_ond_of tape) = false; 3 
; 335 oh dosv dos} 1$v beg-of tape = false; 3 
; 336 428 dosv Cdos11$v_tape_mark = false; 3 
Bo Re 7 ; 
3 i Bees If the data is longer than the buffer, we have a bad tape format : 
: «(341 0238 Css$_dataoverun] : BEGIN 3 
3 o¢ 4 dosv Cdos11$v_position_valid] = false; ! After an error, we don't know where we are. s 
; 34 P 0435 $exch_signal_return (exch$_dos11 blocksize, 2, : 
; 4 04 $ -volb CvolB$l_vol_ident_len], volb Cvolb$t_vol_ident]); 3 
3 5 Be END; 3 
: re 438 : 
3 2 rt We saw a tape mark (end of file status) : 
; 34 441 (ss$_endoffile)] : BEGIN : 
; 350 ri} atrace print_lit ("got - SSS_ENDOFFILE'); 3 
3 oe 44 dosv (dos11$V_tape_mark] = trie; 

; 444 END; 

3; ae 445 : 

3; «64554 446 ! If this is the end, oops 


7 
| 
EXC 
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EXCHS 10 = Device and File 1/0 routines 1b-Se =1984 01:02: VAX-11 Bliss-32 V4.0- Pa 
v04 exchSio dos11_read 12-808- 1 3B 94:98:33 DISKSVMSMASTER: CEXCHN RCJEXCIO.B32:1 


uw 
= 
S 
“N 


! 
; § ret tss$_endoftape] : BEGIN 
; 44 LOCAL 
; : 431 stat2; 
; re 126 | Signal that we have had a problem 
: 36 P 4h $exch_signal (exch$ dost ioerror, 2, 
; o te? -volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident], .status); 
; 365 43? } Rewind the tape so that the position will be known again 
; rs 2g $exch_signal (exch$_dos11_position); ! This might take a while, w 
: 368 ree dosv Cdos11$v_error_rewind] = true; 
3 o Boe) 4 F wot (stat2 = exch$io_dos1l_rewind (.volb)) 
; 4 aces RETURN .stat2; 
: 37 0465 ' Return the ss$_endoftape status 
3 6376 0466 : 
Re a 
; A 8 34 1 Any thing else and we better crap out 
: 379 0471 COTHERWISE) : BEGIN 
; 380 oh 4 dosv Cdosi1$v_position_valid] = false; ! After an error, we don't know where we are 
; 381 P 047 $exch_signal_return (exch$_dos11_ioerror 
; 38 0474 -volb CvolB$l_vol_ident_ 
; 38 0475 2 END; 
BB bts 
; $89 0478 RETURN .status; 
; 387 0479 1 END; 


.EXTRN EXCH$_DOS11_BLOCKSIZE 
OFFC 00000 -ENTRY EXCH$IO_DOS11_READ, Save R2,R3,R4,R5,R6,R7,~; 0339 


| 
(end, volb Cvolb$t_vol_ident], .status); 
R8,R9I,RIO, 
MOVAB LIBSSTOP, R11 


5B 000000006 00 4 00002 : 
SA 990000 06 F p 0009 MOVL § #EXCH$ BADLOGIC, R10 ; 
59 000000006 00 9019 MOVAB LIBS$SIGNAL, R9 : 

4 AC D Bt MOVL Hr RS 3 8380 

04180085 f p 1 MOVL  #68878579, R2 : 0384 
21 71 ~—soBF ¢ 00 MOVZWL #625, R1 : 
0 6 dO 000 MOVL § R : 
000000006 EF 16 O002A JSB X€HSUTIL_BLOCK_CHECK ; 

3 4 Abd OD 030 MOVL 4(R6), R3 ; 0385 
2 003600Fp F pO 6 MOVL #3539197, R2 ; 
1 7 F ¢ MOVZ2WL #626, R1 : 
© nooo00006 ee $6 9004 MTA > EREwaOTEL BLOCK CHECK : 

58 0c a3 4 4 MOVAB Aetna) RB . : 0387 
i t 4 BLBS (RB) {$ ; 
E 0117 F c 2 MOVZWL a 9, -(SP) 3 
1 dD PUSHL @# : 


10 
EXCH 10 = Device and ive 1/0 routines 16-Sep-1 VAX=-11 BLi H Pe V4.0-742 Page 11) 
Fbet000 exchSio dos11_ read 1 =tep - 38 93: 88 of Disk KSVMSMASTER: CEXCHNG. SRCJEXC10.B32; 1 79 3) 
68 ; 8 CRC S ‘ i: Uti : | 
0c 1$: BC ° : 0388 | 
oF 0118 FF Ht 6 MOVZWL : 
1 DD 0006 PUSHL : | 
A 0D 6 PUSHL $ 
oc 3 fe e¢ 2$ gate i 1188) 38 ; wae, 
$F 0119 BF ec 00 MOVZWL -(§P) : 
1 bd 0007 PUSHL : 
A DD 0007 PUSHL : 
$8 3 FB 0079 CALLS i LIBSSTOP : 
1D 7C 3$: MOVL $, : 039 
05 48 Ab 1 €1 0007F BBC Zens) : 039 
50 4000 8F AS 00084 B1Sw2 +163B4. Fie : 
7E 7C 00089 4$: CLRQ.  =(SP) : 0399 
7E 7C 00088 CLRQ (SP) : 
7E 0200 8F 3C 0008D MOVZWL #512, =<SP) : 
08 Ac DD 0092 PUSHL BUFFER : 
3 C 0009 CLRQ.  =(SP) ; 
1€ AS 9F 00097 PUSHAB 30(R3) : 
50 ge $4944 PUSHL FUNC : 
7E 4A Ab 3C 0009C MOVZWL 74(R6), -(SP) : 
7E D4 OOOA0 CLRL = (SP) ; 
000000006 00 OC FB 000A2 CALLS #12, SYS$Q10W ; 
57 50 DO O00A9 MOVL RO, STATUS ; 
04 57 E9 OOOAC BLBC status, $ : 
57 1E A3 3C OOOAF MOVZWL 30(R3), STATUS + 0401 
01 57 D1 00083 5$: CMPL STATUS, #1 + 0409 
27 12 00086 BNEQ 7$ ; 
0200 8F 20 AS 8] 00088 CMP 32(R3), #512 + 0413 
50 20 Ad 36 g90cb MOVZWL 32(R3) LEN + 0419 
50 00000200 8F 50 ¢ 00C4 SUBL3 bEN #51 : 
51 20 A3 3C 000CC MOVZWL (R3), ADR : 0420 
51 08 ac CO 00000 ADDL BUFFER: ADR : 
50 00 6E 00 2c 0004 MOVCS #0, (SP), #0, LEN, (ADR) > 0421 
68 OE 8A OOODA 6$: BICB2 #14, (RB) > 0428 
Hi 11 000DD BRB : 040 
00000838 8F 3? p} OODF 7$: cHPL STATUS, #2104 > 043 
8 oi BA OO0E8 BICB2 #1, (RB) + 0434 
52 000000096 F 0 OE OVL #EXCH$_DOS11_BLOCKSIZE, TEMP > 0436 
69 Ab 9F O00F PUSHAB 105(R6 : 
Aé6 DD OOOF PUSHL  161(R6) F 
08 DD OF6 PUSHL # ; 
DD OOOFA PUSHL TEMP F 
69 4 FB OFC CALLS #4, LIBSSIGNAL ; 
: 11 OOOFF BRB ; 
00000870 =&F f D4 ! 8$: cMPL STATUS, #2160 ; 0441 
68 4 as 10A BISB2 #4, (RB) > 0443 
1 11 00100 9$: BRB 13§ : 0405 
00000878 8F 7 p4 10F 10$: CMPL STATUS, #2168 > 0448 
e8 2 O16 BNEG 1$ ; 
DD 0011 PUSHL STATUS > 0455 


<m 
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EXCHS 10 = Device and ite 1/0 routines 18-50 Sep-1984 VAX-11 Bliss-32 V4.0-742 Page 12. 
y0se008 exch$io dosi1. read 1 eet fi 93: 88: 33 DISKSVMSMASTER: CEXCHNG.SRCJEXC10.832;1 79 (5) 
69 AG OF OO1TA PUSHAB 105(R6) | 
6 A6é DD 0011 PUSHL 101(R6) 
DD 001 PUSHL # 
00000000G 8F DD 001 PUSHL OEXCHS DOS11_IOERROR 
5 FB 001 CALLS #5, LIBSSIGNAL 
00000000G 8F DD 00128 PUSHL a CH$_DO0S11_POSITION 0459 
69 1 4} 131 CALL #1, LIBSSIGNAL 
ry 40 BF 88 00134 BISB2 #64, (RB) 
6 OD 00138 PUSHL R6 
0000v CF 1 Fe 013A CALLS #1, EXCH$10_DOS11 REWIND 
1E 0 013° BLBS STAT2, 13$ 
4 thE; RET 
68 1 BA 00145 118: BICB2 #1, (RB) 
52 00000000G 8F DO 00146 MOVL #EXCHS$_DOS11_IOERROR, TEMP 0474 
7 pp 0140 PUSHL STATUS 
69 A6& YF OO14F PUSHAB 105(R6) 
65 A DD 812 PUSHL jhe 
9 DD 001 PUSHL # 
DD 00157 PUSHL } sat 
69 0 FB 00159 CALLS #5, LIBSSIGNAL 
50 52 00 0015C 12$: MOVL TEMP, RO 
04 0015F RET : 
50 57 DO 00160 13$: MOVL STATUS, RO ; 0478 
04 00163 RET ; 0479 
; Routine Size: 356 bytes, Routine Base: EXCH$IO_CODE + 0105 
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10 - Device and File 1/0 routines 16-Sep-1984 01:02: VAX-11 Bliss-32 V4.0-742 Page 13) 

exch$io dosii_ read. label (volb) 19-808- 1982 93:98:33 DISKSVMSMAS TER: CEXCHNG. SRCICXCIO.B32:1~ (6) 
rs » 1 SPA ROUTINE exch$io_dosi1l_read_label (volb : Sref_bblock) = ZSBTTL ‘exch$io_dos11_read_label (vo | 
4 ¢ 1+ | 
4 ‘ 
4 4 i FUNCTIONAL DESCRIPTION: 

, $ | Read a Label on a dos-11 sequential device | 

0% 8 INPUTS: 

peey volb = pointer to a volb which contains the active record stream 

beg | IMPLICIT INPUTS: 

0494 ! dos11 context block hanging off the volb 

0496 2 | OUTPUTS: 

ond ! 

498 ! none 

0499 ! 

Bend IMPLICIT OUTPUTS: 

b20§ | dos11 context block hanging off the volb 

050% ROUTINE VALUE: 

Bene success if label, false if not a label or error status 

0508 i SIDE EFFECTS: 

0509 ! 

0510 ! none 

0511 ed 

bate 

Betz $dbgtrc_prefix (‘io_dosi1l_read_label> '); 

0515 LOCAL 

0516 unc, 

0517 status 

B28 ; 

051 

0520 BIND ; = 

B3 dosv = volb CvolbSa_vfmt_specific] : $ref_bblock ! Format specific block, contains iosb | 
5 | 
524 $debug_print_tit ("entry"); 
525 $block_check (2, .volb, volb 6083 
5 $ Sblock-check (2, .dosv, dosi{, 6035; r 
5 $logic_check (2, (.dosv dos {$v position elig)) 257); ' We should know where we are 
528 $logic=check (2, (.dosv [dos11$v~tape_mark]), 258); ! And that should be right after a tape mark 
0529 $logic_check (2, (NOT .dosv CdosT1$v_énd_of_tape]), 268); ! But not at the end of the tape 


5 et hehe ek ek ek ek el ed ete 
PUPA 
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rc 
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N 10 
evice and File 1/0 routines 16-Sep-19 :02: VAX-11 Bliss-32 V4.0-742 1 
o dos!i_read. Label (volb) 97908-1383 94:98:38 DISKSVMSMASTER: CEXCHNG.SRCJEXCIO. B32, 79 ad (7 


: Issue the io pore to read the next logical block in the forward direction 


$lo che ; (3, s11$s_ Lobel 7 f EQL 14), 267); 
p y ol abf-ver nf > 


Dd 
i 


o 
ae 


rtee Oy aur ng compilatTon 
10 re 
rT veld Tog reagb “read "Yi THEN func = .func OR io$m_datacheck; 
if (status = $Sqiow < et 
chanz. volb Cvolb$w_channel], 
func=. 
leobedoay itdostisa. iosb], 
pi=dosy fdost ise. label. buf), 
Ten p2=dosi1$s_label_buf)) 
status = .dosv (dos11$w_iosb_status); 
| Finish up based on the status 
SELECTONE .status OF 
SET 


Status is normal, make a cursory check that the label is the correct length. There is little else we 
! do as far as checking, since just about anything that is 14 bytes long could be a valid Label. 


arpa BEGIN 
If the block isn't 14 bytes long, it is not a dosi1 label 
IF dosy Cdos11$w_iosb bytecnt] NEQ 14 
BEGIN 
dosv Cdos11$v_position_valid] = fa 
$exch_signal_feturn (exch$_dos11 "Badlabel, 2, 
a tvolb Cvolb$l_Vol_idént_lenJ, *volb Cvolb$t _vol_ident], .status); 
Set the bits and pieces to reflect that the tape has moved 
dosv tos! tv: be -of _tape 


! After an error, we don't know wher 


false; 
false; 
false; 


dosv [dosi1$v_end_of stage 
dosv Cdos11$v_tape_ airks 


If the data is longer than the buffer, it is obviously not 14 bytes long, therefore we have a bad labe 
(ss$_dataoverun] : BEGIN 


dosv Cdos1l1$v_position_valid] = false; ! After an error, we don't know where we are 
$exch_signal_ Feturn (exch$_dos11_badlabe ¢: 
.volb CvolB$l_vot_ident_lenJ. volb Cvolb$t_vol_ident], .status); 


END; 
: If this is a freshly initialized dos tape, we should see a tape mark (end of file status? 


{ss$_endoffile) : ees 
ip print_lit (' rt an_SS$_ENDOFFILE'); 
gosy dos11$V_end_of_tape) = frue; 


—— a a oe nNm—oO 


RINNE PININI WI WIND WI WINN BBB EWI nor 


09090909 SII NNN NN NSN SIO AAA AAA AA AMI 


EXTRN 
03FC 00000 ENTRY 
59 FF 
58 0 L 
00 LIBSSTOP 
AC VOLB 
3¢ F fat 
i 
, a 
Fj i #355919 197 R2 
1 F 
0 4 R ko” 
69 EXCHSU UT 
55 Ad 2(R4) 
0¢ 65 (R5), 1% 


tit es ane R6 
9, R2 


0 
ete CHECK 


IL BLOCK. CHECK 
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EXCHS$I1O 10 = Device and File 1/0 routines 1b-Sep -1984 01: VAX-11 Bliss-32 V4.0-742 Page 15) 
- exch$io_dosil_read_label (volb) 14-Sep- aarti 3: 96: 38 DISKSVMSMASTER: CEXCHNG. SRCIEXC10.832: 1° (8) | 

3 $33 388 If this is the end, oops 

: 49 tss$_endoftape] : BEGIN 

498 ay, _ - LOCAL | 

: 499 288 stat2; 

; 500 589 

3 20) 209 Signal that we have had a problem 

3 208 P 206 er Signal (exch$_dosll_ioerror, 2, | 

; ape 3237 .volb CvoTb$l_vol_ident_lenJ, volb Cvolb$t _vol_ident], .status); | 

3 208 R2g2 Rewind the tape so that the position will be known again | 

; 508 0597 $exch_signal (exch$_dos11 oerecenes ! This might take a while, w) 

; 509 0598 dosy Edos11$v_error_rewind] = tru 

s 319 0599 4 F NOT (stat2 = exch$io_dos11 _pewind (.volb)) 

:: 3a 0600 3 N 

; 2\¢ 0601 RETURN .stat2; 

; 3} 060 

; 514 060 ! Return the ss$_endoftape status 

3 313 0604 3 ! 

; 516 0605 END; 

s Si7 0606 : 

3; 318 0607 ! Any thing else and we better crap out 

s 319 0608 } 

; 520 0609 COTHERWISE) : BEGIN 

s Se 0610 dosv Cdos11$v_position_valid] = false; ! After an error, we don't know where we are 

3 See P 0611 3 $exch_signal_return (exch$_dos11_badlabel, 2, 

: $25 0612 3 .volb CvolB$l_vol_ident_lenJ. volb CvolbSt _vol_ident], .status); 

3 ese 061 § END; 

3 Ses 0614 TES; 

; 526 0615 2 

3 Ser 0616 2 RETURN .status; 

; 528 0617 1 END; 


EXCH$_DOS11_BADLABEL 
EXCHSIO DOS11_READ_LABEL , Save R2,R3,R4,R5,-; 
EXCHSUTIL BLOCK. CHECK, R9 
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10 = Device and File 1/0 routines 1b-$e -1984 01:02: VAX-11 Bliss-32 V4.0-742 Page 
exch$io_dos11l_read_label (volb) 12286071382 9 98:08 DISKSVMSMASTER = LEXCHNG. SRCJEXC10.B32: 1° 
7E 0101 F 3C Gf MOVZWL #257, -(SP) : 

1 OD 4 PUSHL # : 

DD 6 PUSHL R : 

67 FB CALLS #3, LIBSSTOP : 

0c $5 i B 1$: BBS #2, (R5), 2$ : 
E 0102 BF 3¢ F MOV2wL #258, -(§P) : 

1 DD 064 PUSHL @# : 

DD 00 $6 PUSHL R s 

67 FB 00 CALLS #3, LIBSSTOR : 

0c 65 § 0068 2$: BC #3, (R5), 3$ : 
7E 010c «BFC O0GF MOVZWL #268, -(SP) : 

1 OD 9 4 PUSHL # : 

$ DD £6 PUSHL : 

67 FB 6 7 CALLS #3, LIBSSTOP : 

50 1 OD 078 3$ MOVL » FUN : 

05 48 A3 1 €1 0007 BBC #1, 72(R3), 4$ : 
50 4000 8F A8& 0008 BISW2 #16384, F : 

7E 7C 00088 4$: CLRQ - : 

7E 7C OOO8A CLROQ -(SP) : 

OE DD 0008C PUSHL @# : 

26 «AG «OOF O008E PUSHAB 38(R4) : 

7E 7C 9091 CLRQ - : 

1€ Ad 9F 0009 PUSHAB 30(R4) : 

30 bd 00096 PUSHL FUNC : 

7E 4A oA C 00098 MOVZWL 74(R3), -(SP) : 

7E D4 0009C CLRL -(SP) : 

000000006 00 OC FB 0009 CALLS #12, SYS$QI10W : 
52 50 DD 000A MOVL RO, STATUS : 

04 52 £9 00048 BLBC STATUS, 5$ : 

52 1€ A& 3C OOOAB MOVZ2WL 30(R4), STATUS : 

01 52 D1 OOOAF 5$: CMPL STATUS, #1 ; 

0B 12 90082 BNEQ $ : 

OE 20 As Bi 00084 CMPW 2(R4), #14 : 

50 12 00088 BNEQ : 

65 Of 8A OO0BA BICB2 #14, (RS) : 

68 11 000BD BRB : 

00000838 = &F 52 D1 9008 6$: CMPL STATUS, #2104 ; 
42 13 000C6 BEQL : 

00000870 = &F 52 bi 000C8 CMPL TATUS, #2160 : 
0 \2 OOOCF BNEQ : 

65 08 88 00001 BISB2 #8, (R5) : 

1 #11 0004 BRB $ ; 

00000878 8F 52 D1 000D6 7$: CMPL STATUS, #2168 : 
é 12 9900 BNEQ $ : 

bb DF PUSHL STATU : 

69 AS 9F 000E1 PUSHAB 105(R3) : 

65 A3 DD OO0E4 PUSHL YOUR ) : 

2 DD OO0E7 PUSHL # : 

000000006 8F DD £9 PUSHL HEXCHS DOS11_IOERROR : 

68 5 FB OOOEF CALLS #5, LIBSSIGNAL : 

000000006 8F DD Fe PUSHL #EXCH$_D0S11_ POSITION : 

68 1 a] F CALL #1, LIBSSIGNAL 3 

‘ 40 8F 8 FB BISB2 #64, (R5) ; 

3 DD FF PUSHL R : 

0000v CF 1 FB 101 CALLS #1 EXCHS10_D0S11 REWIND : 

iE 0 £8 001 BLBS sTAT2, 9$ : 


mB 


P 


Li 
MASTER: CEXCHNG. SRCJEXC10.832; 


$$-32 V4.0-742 
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10 = Device 
exch$io_dos1 


fete tete tata tata tea tate te 


0S11_BADLABEL, TEMP 


“a 


LIBS$SIGNAL 


STATUS, RO 
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EXCHS - Device and File 1/0 rout ines hase Sep-1984 VAX-11 Bliss-32 V4.0-742 Page 1 EXC 
yay Ons) Rev dosth rewind (volb) 14- ~8ep-1986 93: 96: 3 DISKSVMSMASTER: CEXCHNG. SRCJEXCIO.B832;1 79 (9 v04 
: : - 1 5 ROUTINE exch$io_dosll_rewind (volb : Sref_bblock) = ZSBTTL ‘exch$io_dos!1l_rewind (volb)' : 
; ¢ 6 pes eS 
; 621 ‘ 
: ¢ ? § } FUNCTIONAL DESCRIPTION : 
; 6 06 4 Rewind a dos-11 sequential device 3 
; 8 6 : | INPUTS: : 
: acy 06 8 volb = pointer to a volb which contains the active record stream ; 
; a Oe 0 { IMPLICIT INPUTS: 3 | 
: 544 06 é i dos11 context block hanging off the volb = 
3 et? 06 ! . 4 
3 46 0634 ' OUTPUTS: é 

; 547 0635 ! a 
; 248 sty: volb$v_beg_of_tape is set 4 
: §50 0638 2 | IMPLICIT OUTPUTS: : | 
s $31 0639 ! 3 
3 226 sae } dos11 context block hanging off the volb 3. 
: $54 0642 i ROUTINE VALUE: $ | 
3 $2? 064 ! i 
; 56 0644 ' success or error status 4 
: 557 0645 ' : | 
3 228 Roe8 ' SIDE EFFECTS: $ 
; 559 0647 2 } | ; 1 
: 560 0648 ! none | 
; $61 0649 2 i-- 3 4 
3 206 0650 .4 
; 207 p08) $dbgtrc_prefix ("io_dosll_rewind> '); s | 
; 565 0658 5 LOCAL 3 | 
: 566 0654 status ef 
: 567 0655 ; a 
; 568 9638 7 
; 369 065 § BIND ; : cope) ej 
3 350 +34 $ dosv = volb [volb$a_vfmt_specific] : $ref_bblock ! Format specific block, contains iosb 3 
. . > e 
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10 = Device and File 1/0 rout ines 16- Sep-1984 VAX=11 Bliss-32 V4.0-742 Page 19 
exch$io ‘dosti. rewind (volb) 1h- oben -1 198 93: 96: 3 Disk SKSVMSMASTER: CEXCHNG. SRCJEXC10.832;1 79 (10) | 
9 $debug_pr print_lit (entry); 
66 Sblock-check"(2, .volb, volb 609) : 
6¢ Sblock=check (2, .dosv. dos11, 6015; 
6 Issue the io operation to rewind the device | 
006 if (status = Sqiow (efn=0, 
P 066 chan=.volb CyolbSu_ channel], 
: func=io$_ rea 
669 : josb=dosv_tdos1{$q_iosb3)) | 
74) status = .dosv [dos11$w_iosb_status]; | 
0678 } If either the qio or the io operation failed, scream and shout 
Bor? If NOT .status 
7 THEN 
067 BEGIN 
0678 dosv (dos11$v_position_valid] = false; ! After an error, we don't know where we are | 
P 0679 $Sexch_signal_return (exch$ _dos11 ioerror 
0680 .volB Cvolbs( - ident_lenJ, volb Cvolb$t_vol_ident), .status); 
se END; 
Os88 } Set the bits and pieces to reflect that the tape is now at the beginning | 
0685 dosv (dos11$l_current_file] = 0; ' BOT is first file (#0) 
0686 dosv (dos11$v “Beguot-es valid) = true; ! After a rewind, we know exactly where we are 
0687 dosv [dos11$v_ of -tépe} = = true; 
0688 dosv (dos11$v_end_of_tape) = false; 
+434 dosv ([dos11$v_ “tept, mark = true; ! Make it look Like we are sitting right after a tape mark 
069 RETURN .status; 
0692 1 END; | 
007C 00000 -ENTRY EXCH$IO_DOS11_REWIND, Save R2,R3,R4,R5,R6 ; 0618 
56 0000N000G EF 9 000 MOVAB EXCHSUT IL BLOCK_ CHECK, R6 $ 
5¢ 9 AC 00 000 MOVL VOLB : 0658 
32 041800 8F p 0000 MOVL #6 eas 8579, R2 ; 0661 
1 0725 ef C 00014 MOVZWL r 
50 4 9 19 VL Re RO ; 
66 1¢ JSB EXCHSUTIL BLOCK_CHECK ; 
55. SK A OCD : 1 MOVL 3 0662 
32 OO%s0urD «BF pO 0 MOVL 43559167, R2 : 
1 0259 F 3¢ 00 MOVZWL #601 $ 
50 3 pO 00 : MOVL ; 
6 16 JSB a apa ae : 
— 7C 000 CLRQ -(SP) ; 0669 
7E 7C 000 CLRO -(SP) 3 
7E 7C CLRQ (SP) : 
7E 7C 9 CLRQ ~ 5 
iE AS OF B PUSHAB 30(R3) ; 
24 ge 0 f PUSHL #36 3 
7E 4A AG C 04 MOVZWL 74(R4), =-(SP) 3 
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EXCHSIO_CODE + 0394 


; Routine Size: 143 bytes, Routine Base: 


H 11 
EXCHS 10 = Device and File 1/0 routines 16-Sep-1984 VAX-11 Bliss-32_ V4.0-742 Pe e 21 EXC! 
062000 yo ehSts Vdos1i _set_density (volb) 14-Sep-1984 93: 98: 33 DISKSVMSMASTER: CEXCHNG. SRCJEXC10.B32; 1 ‘ a4) V04: 
; oo? 244 1 So0nt ROUTINE exch$io_dosl1_set_density (volb : Sref_bblock) = ZSBTTL ‘exch$io_dos11_set_density (v : 
; 60 695 ++ : 
; 610 69 i . | 
3 oi re FUNCTIONAL DESCRIPTION: - 
; ei8 4 Set the density on a tape device _ 
; 615 701 i INPUTS: ; 
: 618 10 i a 
; at4 , ? volb = pointer to a volb which contains the active record stream | 
; 618 70s IMPLICIT INPUTS: : 1 
; 621 070 dos11 context block hanging off the volb 21 
; 62 0708 2 } 21 
; 6 0709 i OUTPUTS: s i 
> 624 0710 2! 21 
; 625 O711 2! none 21 
; 626 Orie ! 21 
3 627 071 i IMPLICIT OUTPUTS: 2 1 
; 628 0714 2! 21 
; 6 9 0715 dos11 context block hanging off the volb ‘ y 
; 631 0717 2 | ROUTINE VALUE: 21 
3; 8 ; 0718 i : 1 
; 633 0719 2 success or error status 1 
; 6 0720 2! 21 
; 639 0721 2 | SIDE EFFECTS: a i 
; 6 07 ; i 21 
3; 637 07 i drive density is set to the new value 21 
: 638 0724 in ; 1 
; 639 0725 21 
3 640 0726 2 $dbgtrc_prefix ("io_dos11_set_density> "); 21 
; 641 0727 : 1 
i 648 0728 2 LOCAL 3 it 
> 64 0729 dib : S$Sbbiock C ! First three longwords of dib 2 
3; 644 0730 dib_desc : VECTOR ‘ta, LONG), ! A descriptor for the above ° i} 
; 645 4 1 status . 4 
; 646 7 ¢ : ° 
3 647 07 st 
; 648 ree IND : s ‘ 
; 649 0735 mtchr = dib fdibst. devdepend] : Spbtoct C4], ! Characteristics field as structure : 1 
; 650 $735 dosv = volb Cvolb$a_vfmt “specific) : ref_bblock ! Format specific block, contains iosb : 1 
; 651 7 : . 4 
ie | 
a | 
: 1 
s Y 
3 7 
3 7 
3 7 


} 

11 
$ 10 = Device and File 1/0 routines 1-Se -1984 01:0 VAX=11 Bliss=32_V4.0-742 Page 22) Ex¢ 
505-000 exchSio dosii_ set. density (volb) 12786-1382 93 8 38 DISKSVMSMASTER LEXCHNG. SRCJEXC10.B32:1" a v04 
; 653 7 Sdebug_print_lit ("entry"); : 1 
: 654 i Sblock-check~( , .volb, volb, 627); :] 
; 6 5 740 Sblock=check (2, .dosv, dosl1, 6285; : , 
; 6 ; rg : Get the device information | : 1 
; 658 74 ! 3; 7 
>; 659 744 dib_desc 93 = 25 | 3 3 
; 660 745 @ dib-desc (1) = dib; $7 
3 $83 me to (status = $getchn (chan=.volb Cvolb$w_channel], scdbuf=dib_desc)) | : : 
; 66§ be BEGIN | 2] 
; 664 74 LOCAL 37 
; 665 £20 d ; : VECTOR (2, LONG); a. 
; 666 751 desc f = .volb Cvolb$l_vol_iden len]; i. 
; 667 O78 desc C1) = volb Cvolb$t_Vol_TdentJ; : 1 
3 o08 EF Sexch_signal_stop (exchS_accessfail, 1, desc, .status); : : 
: 670 P 0755 $debug_print_fao ad yh ‘ML, devclass !XB, devtype !XB, devbufsiz !UL, devdepend !XL', ,dib [dib$l_devcha 21 
; 671 0736 -dib CdibSb_devclass], .dib EdibSb_devtype], .dib [dib$w devbufsizJ, .dib Ldib$l_devdepend]) : 
3 er 8728 Set the new characteristic. buffer : : 
$ of? 3768 mtchr Cmt$v_density] = CSELECTONE cli$_present OF ! Set the new density : : 
; 677 444 cli$present (ZASCID ‘'DENSITY.800')J mt$k_nrzi_800; | $7 
; 678 076 cli$present (ZASCID ‘DENSITY.1600')) : mt$k_pe_1600; 3; 1 
: 679 0764 cliSpresent (ZASCID "DENSITY.6250')] : mt$k_gcr_6250; | : 1 
; 680 0765 OTHERWISE) : Slogic_check (0, (false), 117); 37 
; 681 0766 g 31 
; 68 0767 a, 
; «468 0768 ! Issue the setmode io operation to change the density 3 7 
; 684 0769 ! | 3 7 
: 685 P 0770 IF (status = S$qiow (efn=0, 3 1 
5 686 P 0771 chan=.volb Cvolb$w_channel], 3 7 
; 68 Bite func=io$_setmode 3 3 
; 688 P 077 iosb=dosv (dos11$q_iosbJ, 3% 
; 689 P 0774 3 pl=dib [dib$b_devclass], | 7] 
; 690 0775 p2=8)) | a. 
; 691 0776 N | 71 
3 4 oeee status = .dosv [dos11$w_iosb_status); | : . 
; one 0779 : If either the qio or the io operation failed, scream and shout | : : 
: 6 781 2 if NOT .status | 31 
3 635 Ores THEN ,} 
; 698 ore BEGIN Ze. 
; 699 784 dosv Cdos11$v_position_valid] = false; ! After an error, we don't know where we are | 3 
; 700 P 0785 Sexch_signal_return (exch$_dos11_ioerror, 2, 3] 
: 701 0786 .volB Cvolb$(_vol_ident_len}, volb Cvolb$t_vol_ident], .status); 71 
> 70 0787 END; | 2] 
; 70 788 | 3% 
: 704 0789 RETURN .status; 3 7 
; 705 0790 1 END; 3] 
| : 1 
21 
-PSECT EXCHSIO_PLIT,NOWRT,2 $Y 


J11 
EXCHS 10 = Device and File 1/0 routines 16-Sep-1984 01:02: VAX=-11 Bliss-32 V4.0-742 Pp 3 Exc 
Fen 000 exchSio dos! set. density (volb) 12-808-13be 9:98:33 DI SKSWMSRAS ER: CEXCHNG, SRCDEXCIO.B52:1 (18) v04 
Be 
00 30 30 38 26 59 54 49 S53 4E 45 46 P.AAB: ASCII \DENSITY.800\<0> ‘ | 1 
010 9008 a P.AAA: .LONG Neen : 31 
0 ' 1 ;ADDRESS P.AAB : : 1 
30 30 36 31 2E 59 54 49 53 4E 43 4h 0001% P.waD: ASCII \DENSITY.1600\ : | :] 
010 990¢ 0 P.AAC: .LONG 17694732 : 31 
0000000" 00024 “ADDRESS P.AAD : 31 
30 35 32 36 2€ 59 54 49 53 4E 45 44 00028 P.AAF: ‘ASCII \DENSITY.6250\ : : 1 
010 000¢ 034 P.AAE: .LONG 17694732 : : 1 
0060000" 000 “ADDRESS P.AAF : ; ' 
.EXTRN SYSSGETCHN, EXCHS_ACCESSFAIL 1 
-EXTRN LIBSSTOP, CLI$_PRESENT 
EXTRN CLISPRESENT | 
.PSECT EXCH$IC_CODE,NOWRT,2 | 
01FC 00000 ENTRY EXCHSIO DOS11_SET_DENSITY, Save R2,R3,R4,- ; 0693 
58 000000006 FF 9E 90002 MOVAB EXCHSUTIL BLOCK CHECK, RB : 
37 000000006 60 9€E 0000 MOVAB LIBS$STOP,~R ; 
6 000000006 00 9 90010 MOV CLISPRESENT, R6 : 
3E 1¢ C2 0001 SUBL2 #28, SP ; 
5 04 AC DO OOO1A MOVL VOLB, R3 : 0736 
52 0418008 3 8F p0 OOlE MOVL #6 878579, R2 : 0739 
51 0273 BF 3C 000 MOVZWL  # R1 ; 
50 53 DO 0002A MOVL R3, RO ; 
68 16 00020 JS8 EXCHSUTIL BLOCK_CHECK : 
54 A Do? 002F MOVL 4(R3), R : 0740 
52 003600FD BF p 0033 MOVL #3539197, R2 : 
51 0 BF 3C 99 A MOVZWL #628, R1 ; 
50 54 00 0003F MOVL  R4, RO ; 
68 16 00042 JSB EXCHSUTIL BLOCK_CHECK F 
08 AE 0c po D044 MOVL #12, DIB_BESC : 0744 
OC AE 10 AE 9E 00048 MOVAB DIB, DIB-DESC+4 > 0745 
08 AE 9F 00040 PUSHAB DIB_DESC + 0746 
7E 7¢ 9090 CLRQ ss = (SP) : 
re p4 O52 CLRL = = (SP) F 
7 4A AS 3C 0005 MOVZ2WL 74(R3), -(SP) F 
000000006 Q 9 FB 00058 CALLS #5, SYSSGETCHN F 
g DO 0005F MOVL RO, STATUS ; 
1A 55 CE 9062 BLBS STATUS, 1$ ; 
6E 65 A3 DO 0006 MOVL  101(R35, DESC : 0751 
04 AE 69 A’ 9E 00 9 MOV 105(R3), DESC+4 : O79¢ 
55 (DD PUSHL STATUS : 07 
04 AE 9F 000 PUSHAB DESC ; 
1 OD 07 PUSHL #1 : 
000000006 8F DD 0007 PUSHL #EXCHS_ACCESSFAIL ; 
67 4 FB 0078 CALLS #4, LIBSSTO F 
52 000000006 8F pO 0 7F 1$ MOVL  #CLIS_PRESENT, R2 : 0760 
0000' CF 9F 00086 PUSHAB P.AAA > 0762 
$6 or Fe A CALLS #i, CLISPRESENT ; 
Q CMPL =soR2. R ; 
BNEG 2 : 
50 D 9 MOVL #3, RO : 
1 1 9 BRB 5$ ; 


Excuse 10 = Device end File 1/0 routines 16- 
v04 exch$io_dos1l_set_density (volb) 14- 
an 
6 g of Onne 
50 4 i A3 
0 11 A 
0000" ‘ 44 
" gH Sie 
50 5 06 B4 
,.) oy ed 
7 ome Bt 88 Se 
000000006 8F DD O00BF 
67 3 4 00C5 
AE 05 00 , re gate 
3 7C 0050 
08 DD 00002 
a8 HE HE Be 
1E A& 9F 00009 
23. DD 0000C 
7 MN 8 Rae 
se Bie 
07 55 ? OQOOEE 
330 OE OBS Fs 000FS 
Oc 8 A4 01 8A OO00F8 
54 000000006 4 43 BROns 
69 A 9F 00105 
65 A3 DD 00108 
02 DD 00108 
54 0D Ba1gD 
epee 32 oO OOli6 
04 00119 
50 55 DO OO11A 
04 0011D 
; Routine Size: 286 bytes, Routine Base: EXCHS$IO_CODE + 0423 


3$: 


4$: 


5$: 


6$: 


7$: 


71986 92:26:05 DISKSVNSRA 


PUSHAB P.AAC 
CALLS Hi CLISPRESENT 
CMPL ‘eo 
BNEO 
MOVL #4, RO 
BRB 5$ 
PUSHAB P.AAE 
CALLS ae + CLISPRESENT 
CMPL 
BNEQ 
MOVL #5, RO 
BRB 5$ 
MOVZBL #117, (SP) 
PUSHL #1 
PUSHL re ted BADLOGIC 
CALLS $ST 
INSV #0, ae MTCHR+1 
CLRQ = Rep) 
CLRO ~t3p) 
PUSHL #8 
PUSHAB DIB+4 
LRQ 9s =(SP) 
PUSHAB 30(R4) 
USHL #35 
MOVZWL 74(R3), -(SP) 
CLRL -<(SP 
CALLS #12, SYS$QIOW 


MOVL RO, STATUS 


$-32 V4.0-742 
TER: CEXCHNG. SRCJEXCIO. B32; i 


BLBC TATUS, 6$ 
MOVZWL 30(R4), glAtus 
BLBS TATUS, 7$ 
BICB2 #1, 12(R4) 
MOVL #EXCHS$_DOS11_IOERROR, TEMP 
PUSHL STATUS 

PUSHAB 105(R3) 

PUSHL 101(R3) 

PUSHL #2 

PUSHL TEMP 

CALLS #5, LIBSSIGNAL 
MOVL TEMP, RO 

RET 

MOVL STATUS, RO 

RET 


<m 


RS 


~~ 


ooo 


SNS 
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10 - Revice » nd File {70 roysings 4) 18-5 3ep- 138% 9: 9: 33 VAX-11 Bliss-32 V4.0-7 


exch$io dosii _skip_fi 


Hf 


at ot ot tt ot I I I OOOOOOOOOO 
-—-o 


AUE WN $9 OONAUE WN $9 ODNOAOUES WN OOONOUS Ww 


Ww 


e (volb, 14-Sep- 


'4¢ 
i 


FUNCTIONAL DESCRIPTION: 
Skip a given number of files 
INPUTS: 


volb = pointer to a volb which contains the active record stream 
files = number of tiles to skip (positive - skip forward, negative - skip reverse) 


i 
i 
i 
i 
i 
i 
i 
i 
i 
IMPLICIT INPUTS: 
dos11 context block hanging off the volb 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
dosi1 context block hanging off the volb 
ROUTINE VALUE: 
success or error status 
SIDE EFFECTS: 
= none 
$dbgtrc_prefix ("io_dosli_skip_file> '); 
LOCAL 

skipc, 

iosb_skip, 

skip_adjust, 

status 


BIND 
dosv = volb Cvolb$Sa_vfmt_ specific] : $ref_bblock ! Format specific block, contains iosb 


42 
DISKSVMSMASTER: CEXCHNG. SRCJEXCIO. 832 
1 SL ORAL ROUTINE exch$io_dosl1_skip_file (volb : Sref_bblock, files) = ZSBTTL ‘exch$io_dosl1_skip_file (vo 


] 
| 


= 
| 


| 
| 


EX( 
vO4 


11 


M 
EXCHS 10 - Device and File 1/0 routine 16-Sep-1984 01:02: VAX-11 Bliss-32_V4.0-742 Page 26) 
FOr 000 exch$io dosti skip file {volb, files) 12286-1382 9) 98:08 DISKSVMSMASTER: CEXCHNG. SRCJEXC10.B832: 1° as | 
; 754 7? 2 $debug_print_fao (‘initial file count !SL', . files); ; 1 
; 755 3 Sblock~check”( » «volb, vol 614); | 3] 
: 7 : $block check (2, .dosv, dos ; :] 
; 4 ; re Slogic check (2, (.dosv dos1{$v_position_valid)), 270); ! We should know where we are : , 
; 759 4 If .files EQL 0 | | 
; 760 4 THEN 3 1 
: fol re RETURN 1; : } 
s 76 rf) ! If the skip count is negative, we will have to skip one extra file and then space forward. In addition, i 3 1 
: 764 4 ! we are at the end of tape we need an extra skip to get past the extra tapemark. We assume that 3 1 
3 £9? rk nobody will try to skipfile to file 0 (they should rewind instead). : | 
; re 50 IF (skipe = .files) LSS 0 | :] 
; 768 51 THEN 3 1 
; 769 26 BEGIN 3; 1 
: 770 32 skip_adjust = (IF .dosv Cdos11$v_end_of_tape] THEN 2 ELSE 1); : 1 
; 771 54 skipc = .skipc = .skip_adjust; : 1 
3; 77 0855 END; BJ 
3; 7 +t) 3; 1 
3 44) ett Issue the io operation to skip to the next file : ! 
: 776 0859 Sdebug_print_ tao (‘actual skip count !SL*, .skipc); 3] 
: 777 5 3360 IF (status = $qiow (efn=0, 3 1 
; 778 P 0861 chan=.volb Cvolb$w_channel], 3 1 
3; 779 P p886 unc=io$_skipfile, 3 7 
: 780 P B86 iosb=dosv Cdos11$q_iosb], 37 
; «781 864 pl=.skipc)) 31 
; re 0865 THEN : 1 
; 78 Bees status = .dosv (Cdos11$w tosh pyetusd: : : 1 
3 eee peee josb_skip = .dosv Cdos11$w_Tosb_Skipcntd; ! Save skip count in case we do another 1/0 : t 
; os Ba9p : If either the qio or the io operation failed, scream and shout : } 
; 788 te IF (NOT .status) 3 1 
3; 789 376 AN 31 
: 790 087 (.status NEQ ss$_endofvolume) 3 
: 791 0874 THEN 3 1 
3; 0875 BEGIN ; : 1 
: 79 0876 dosv Cdos11$v_position_valid] = false; ! After an error, we don't know where we are : 1 
3: 794 p pore $Sexch_signal_feturn (exch$_dos11_ioerror, 2, 3 1 
; 795 0878 -volB Cvolb$(_vol_ident_lend, volb Cvolb$t_vol_ident], .status); 3 
; 138 0873 END; : } 
: 798 est ! If the skip was negative, we will be positioned rene before the tapemark which precedes the file we want. 3 1 
: 644 ; § } Therefore, we must read that tapemark so that we will be positioned right before the label. : } 
; 801 4 IF .skipe LSS 0 31 
3 O 5 THEN 3 1 
; 80 § BEGIN 31 
3; 804 8 LOCAL 
; 805 3 buf : $bvector (32); 
; oF my josb_skip = .iosb_skip - .skip_adjust; ! Adjust back to the desired skip | 
: B09 o 96 !' Issue the io operation to skip over the tapemark 
; 810 89 : 


] 

EXCH 10 - Device a nd File 1/0 routines te -1984 VAX=11 Bliss-32 V4.0-742 7| EX¢ 
Vv04 exchSio dos11 _skip_file (volb, files) 16- 8ep-1984 9}: 9§: 33 DISKSVMSMASTER: CEXCHNG. SRCIJEXCIO. B32. 7 ad tT 44 | v04 
; 811 P 0894 4 IF (status = $qiow (efn=0, 7] 
; 3 P0895 4 chan= volb Col bw _channel), 7) 
3; Bl P 0896 4 func=io read LbLk, :] 
: B14 P 0897 4 losbs dos dos11$q_iosbJ, i 
: Ble P Ob99 p2=89) | 4 

3 = | a 
: BIg 900 1H | 4 
; 18 901 status = .dosv ([dos11$w_iosb_status); | ; } 
; 308 } If either the qio or the io operation failed, scream and shout | : | 
; ¢ 905 IF NOT .status : 1 
3 9 THEN 31 
H 4 907 4 BEGIN $1 
3 5 38 4 IF .status NEQ ss$_endoffile : 1 
3 S 9 4 THEN - 
: : 910 BEGIN 31 
3 8 0911 dosv Cdosi1$v_position_valid] = fa ! After an error, we don't know where we are 1 
3 Hf P Bale $exch_signal_freturn yt dos11 re Be 2 
; 830 0913 5 -volb ECvolb$T_vol_ ident. len], volb Cvolb$t_vol_ident], .status); 31 
; 831 0914 5 END 31 
3 HE 0915 4 ELS 3 1 
3; &3 0916 4 status = ss$_normal; ! Turn endofvolume into normal, return the normal status i] 
3: 834 0917 3 END; 31 
; 835 34 END; 31 
: 836 091 | 3 1 
3 tH 0381 Set the bits and pieces to reflect that the tape has moved : ! 
; 839 09 § Sdebug., print. fao (' curcent file before !UL', .dosv Cdos11$l syrrent file] | : 1 
; 840 09 dosv [dos11$T current_file] = .dosv Cd dos11$l current file] * (IF .skipc “gee 0 THEN .iosb_skip ELSE -.iosb_sk | s 
; «841 0924 debug_print_fao (‘current file, after VL » -dosv (dost 181 Ae filed) 3 1 
: ang 0925 dosv [dos11$v “bes. of_tape] = false; might be true - 1 
3 9b 0397 dosv Cdos11$v_tape_mark = Ss : ! 
3; 6845 0928 IF .status EQL ss$_endofvolume 3 1 
; 846 3494 THEN a1 
3 4 0930 BEGIN 31 
: 848 0931 status = true; ' Want a success status 31 
; 849 O33 dosv Cdos11$v_end_of_tape] = true; : 1 
3 529 093 3 1 
; 851 0934 EL! 31 
; 26 0935 dosv Cdos11$v_end_of_tape] = false; : 1 
; «85 0936 | 3 1 
: 854 Bae RETURN .status; g 1 
; 855 938 END; : 
s | 
3 1 
ea 
OFFC 00000 -ENTRY EXCHS$IO_DOS11_SKIP_FILE, Save R2,R3,R4,R5,~- ; 0791. 3 | 
R6,R7,RB,RO,RTO,RIT : 3 1 
58 900000006 FF 9E 9002 MOVAB EXEHSUTIL BLOCK CHECK, R11 ; > 
5A 000000006 6 9 boy — 1b et R10 3 | 3 1 
SE 20 C3 00010 SUBL2 #32, SP : 31 

24 04 AC DO 0001 MOVL v0 : R4 ; 0835 5 : 
2 041B800F3 8F D0 00017 MOVL  § #68878579, R2 ; 0838 2 


EXCHS 10 = Device and File 1/0 routines 16-50 -1984 VAX-11 Bliss-32 V4.0-742 8 | 
rivet exch$io dosli skip fite (volb, files) 1 ~Sep-1984 93: 98: a3 DISKSVMSMASTER: CEXCHNG.SRCIJEXCIO. B32" ; 9423 | 
1 0266 BF 3 1 MOVZWL #614, R1 ; 

3} LAG opoe = MavZML : 

55 uoath Se BR BBE RB BEfatyrzpgttocn vec one 

52 003600FD BF p MOVL #3549167, : 

51 0264 28F : MOVZWL £8 fo : 

es 25 88 Bb ose Met reweUTIL BLOCK. CHECK ; 

59 0c AS 9 003 MOVAB Ft rf Ro : + 0840) 

14 ‘ 0041 LBS (Ron : 

7E O10E BF 3C 00044 MOVZWL #270, -(SP) : 

000000006 ' DD a06 PUSHt FEXCHS BADLOGIC ; 

000000006 00 03 FB 051 CALLS #3, LIB : 
08 AC 05 00058 1$ TSTL = FILES + 0842 

04 if 00058 BNEG 2$ F 
50 01 DO 0005p MOVL #1, RO + 0844 

04 00060 RET : 

58 08 AC 00 00061 2$ MOVL FILES, SKIPC + 0850 
OF 18 00065 BGEQ 6=s«S$ : 

05 69 03 £1 9067 BBC #3, ( 3$ + 0853 

57 02 DO 00068 MOVL 2. sRip * ADJUST : 

03 11 0006 BRB 4$ ; 

57 01 DO 00070 3s: MOVL SKIP_ADJUST ; 

58 57 C2 00073 4$: SUBL2 SKIP ADJOST, SKIPC > 0854 
7E 7¢ 000% 5$: CLRQ. =(SPY + 0864 
7E 7C€ 0007 CLRQ (SP) : | 
7E D4 OO07A CLRL = = (SP) : 

58 DD 0007C PUSHL  SKIPC : 

7E 7C 0007E CLRQ.  =(SP) : 

1E A’ 9F 00080 PUSHAB 30(R3) : 
25 DD 00083 PUSHL #37 : | 

7E 4A Ad 3C 00085 MOVZWL 74(R4), -(SP) : 
7E D4 00089 CLRL_  =(SP) | 

6A OC FB 00088 CALLS #12, SYS$QI10W : 

55 50 pO 0008E MOVL RO, STATUS : 

04 55 €9 00091 BLBC TATUS, 6$ F 

55 1E AZ 3C 00094 MOVZWL 30(R3). STATUS + 0866 

52 20 A’ 32 00098 68: CVTW 2(R3), IOSB_SKIP : 0867 

09 55 E8 0009C BLBS STATUS. 7$ > 0871 

000009A0_ —s«aF 3° D1 O009F CMPL STATUS. #2464 : 0873 
& 12 OOOA6 BNEQ 9$ : 

58 05 O00A8 7S: TSTL  SKIPC + 0884 

6 1 QOOAA BGEQ ©6-:«d1'1 : 

52 ¢ AC SUBL2 SKIP_ADJUST, I0SB_SKIP : 0890 | 

— 7C OOOAE CLRO. =-(SPY : 0899 | 
ce 7€ 00081 CLRO 543?) F 
20 DD 00083 PUSHL #3 ; 
16 AE 3 0 B PUSHAB BUF ; 

¢ C 0008 CLRQ -(SP) : 

1 AS OF 0 BA PUSHAB 30(RS) : 

21 pp BD PUSHL #33 : 

7E 4A A 3C OOOBF MOVZWL 74(R4), -(SP) F | 

7E D4 000C LRL tie ; | 
oA F ¢ CALLS #12, SYS$QIOW ; 
5 D ¢ OvL RO STATUS ; 
07 E9 000CB BLBC STATUS, 8$ : 
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EXCHSIO_CODE + 0541 


Routine Base: 


304 bytes, 


; Routine Size: 


ee tee ree ee ee ete ai ecen, Erman eae weer 


Sdebup_or print_ th (‘entry'); 
$block-check™ (2, neeeeee y olb 633); 
OSV, dosti 36); 


$block_check ( 
(.dosv hy ye eg valid]), 287); ! We should know where we are 


Slogic_check ( 
: Start by ea no records 
dosv (dos11$w_block_count) = 0; 
Issue the io operation to space in the desired direction 


iF (status = $qiow fefned. 
chan=.volb Cvolb$w_channel), 


D 12 
EXCHS 10 = Device and File 1/0 routines 16-Sep-1984 VAX-11 Bliss-32 V4.0-742 0 EXC 
Ten 000 exch$io ‘dosti _Skip_record (volb, records) 14- ats? 9}: 96: 38 DISKSVMSMASTER: CEXCHNG.SRCIJEXCIO. B32, ; oe 48 v04 
: B38 a I sh Oat ROUTINE exch$io_dosl1_skip_record (volb : Sref_bblock, records) = ZSBTTL ‘exch$io_dos11_skip_r. ; ! 
3; § § Re) ++ $7 
; 860 : $7 
3 $e) 348 FUNCTIONAL DESCRIPTION: ; ! 
3 ae? Bee } Skip a given number of physcial records on a dos-11 sequential device : : 
: 865 gece 5 i INPUTS: | :4 
; 508 0948 ' eB 
; 86 0949 ! volb - pointer to a volb which contains the active record stream : 1 
: 508 Bees } records = number of records to skip (positive => forward, negative => backward) ; } 
: 870 B326 ! IMPLICIT INPUTS: 3} 
; 871 095 ! 3 1 
s 687 0954 ! dosi1 context block hanging off the volb sy 
; 87 0955 ! 37 
; 874 0956 ' OUTPUTS: a7 
; 875 0957 ! a3 
; 876 0958 ' none $7 
:; 877 0959 ' e 7 
; 878 0960 ' IMPLICIT OUTPUTS: g 1 
: 879 0961 ! $7 
; 880 096 ! dos11 context block hanging off the volb 3 7 
: 881 096 ! | 37 
; #88 0964 ! ROUTINE VALUE: $3 
: 88 0965 ! $7 
; 6884 0966 : success or error status | a. 
: 885 0967 ' 3:7 
; 886 0968 2 ! SIDE EFFECTS: a} 
:; 887 0969 ! | 21, 
; 888 0970 ' none | 3 1 
; 889 0971 len 3% 
; 890 097 $7 
; «(891 097 Sdbgtrc_prefix ("io_dos11_skip_record> '); : 1 
; 892 0974 3 7 
; 893 0975 LOCAL : 1 
3; 894 0976 status : 1 
; 895 0977 : * 
: 0978 : 1 
; 897 097 BIND . : 1 
; 7: = volb Cvolb$a_vfmt_specific] : $ref_bblock ! Format specific block, contains iosb | : 1 
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12 
EXCHS 10 = Device and File 1/0 routines 18. -Sep-1984 01:02: VAX-11 Bliss-32 V4.0-742 1 EXC 
rivet exch$io_dosli_skip_record (volb, records) 14- =8ep -1 138 95:98:38 Disk KSVMSMASTER: CEXCHNG.SRCJEXCIO. B32" 7 43) v04 
; 916 P 099 func=io$_skipre :) 
: 915 P 399 iosb=dosv tapst isa. fosb], H ! 
3 218 99 pl=.records) ° 4 
; 91 99 THEN | af 
3 318 1990 status = .dosv [dos11$w_iosb_status); . 4 
: 4 0 190¢ | Finish up based on the status * : 
i 98e 1004 @ SELECTONE .status OF | 3 
; = 1005 SET 4 
: 924 1006 Css$_normal) : 2 
: 925 100 BEGIN ¢ 
; 926 1008 | ; 
3 4 H's Set the bits and pieces to reflect that the tape has moved ’ : 
; 929 1011 dosv pdosi }év. tape_mark] = false; | 7) 
; 4 ? isis dosv [dos11$v_end_of_tape] = false; ‘ ! 
: 93 1014 END; : | 
; 338 1015 i] 
; 934 Its ! End of file means that we have found the end : 1 
; 935 101 21 
; 936 1018 Css$_endoffile] : i] 
; 937 1019 BEGIN : 1 
; 938 1020 i] 
; 939 108) status = true; ! Return true instead of endoffile | ; } 
3 a} 1098 : } Set the bits and pieces to reflect that the tape has moved | ; : 
; 308 1095 3 dosv (dos11$v_tape_mark] _ = true; | :] 
3 944 1026 dosv C[dos!1$v_end_of tape] = false; 2] 
3 oe? ost ; dosv Cdos11$l_-current_file] = .dosv Cdos11$l_current_file] + 1; ; : 
; 947 1098 END; 
: 948 1030 
3; 949 1031 ! If this is the end, oops 
: 950 1935 ! 
3 69) 103 Css$_endoftape] : 
; 326 1034 BEGIN 
; 95 1035 
3: 954 1036 ! Signal that we have had a problem 
; 955 1037 i 
; 956 P 1038 $exch_signal (exch$_dos11_ioerror, 2, 
: 32r 1933 .volb Cvolb$l_vol_ident_len}, volb Cvolb$t_vol_ident], .status); 
3 54 nel 1 Set the bits and pieces to reflect that the tape has moved 
3 : 
; 961 1023 dosv Cdosli$v_tape_mark] = fatses 
; 366 1044 dosv ([dos11$v_end_of_tape] = 
; 1045 dosv Cdos11$l"-current_ filed a ee 3 Cdosi1$l_current_file] + 1; 
; 964 1068 
; 965 104 END; 
3 206 1048 
: st 198? Any thing else and we'd better crap out 
; 969 1984 COTHERWISE)] : BEGIN : 
: 970 1052 dosv (dos11$v_position_valid] = false; ! After an error, we don't know where we are. 


O3FC 00000 ~ ENTRY erg Mes Be SKIP_RECORD, Save R2,R3,R4,- 
59 000000006 EF 9E 00002 MOVAB EXCHSUTIC_BLOCK_CHECK, R9 
58 000000006 00 9€ 00009 MOVAB LIBSSIGNAC, RB 
57 000000006 8F 00 00010 MOVL  #EXCHS$ DOS{1_IOERROR, R7 
54 04 AC 00 00017 MOVL VOLB, R4 
52 041B00F3 BF pO 0001 MOVL  #68878579, R2 
51 0278 =8F 3C 0002 MOVZ2WL #635, R1 
50 54 00 000 MOVL  R4, RO 
69 16 O002A JSB EXCHSUTIL_BLOCK_CHECK 
53 54 AS DO 0002C MOVL  84(R4), R3 
52 003600FD 8F b0 990 0 MOVL #3539197, R2 
51 027¢ «BF 3C 0037 MOVZWL #636, RI 
50 53 DO 0003Cc MOVL  R3, RO 
69 16 0003F JSB EXCHSUTIL_BLOCK_CHECK 
52 0c A3 9E 00041 MOVAB 12(R3), R2 
14 62 c 00045 BLBS  (R2), 1$ 
7E O11F BF 3C 00048 MOVZWL #287. -(SP) 
01 DD 0004D PUSHL #1 
00000000G 8F DD 0004F PUSHL aay BADLOGIC 
00000000G 00 03 FB 00055 CALLS #3, {8SsToP 
34 AS B4 9005¢ 1$: CLRW  52(R3) 
7E 7C 0005F CLRQ  =(SP) 
7E 7C Beet CLRQ -(SP) 
7E D4 00063 CLRL = = (SP) 
08 AC bp 0065 PUSHL RECORDS 
3 C 00068 CLRQ -(SP) 
1E AS OF 006A PUSHAB 30(R3) 
26 Be 0060 PUSHL #38 
7E 4A AG 8 of MOVZWL 74(R4), -(SP) 
7E D4 : CLRL i 
000000006 99 € FB 0007 CALLS #12, SYS$Q10W 
D 7¢ MOVL RO STATUS 
4 5 7F BLBC status. $ 
5 1E A C MOVZWL 0(R3), STATUS 
01 3 D1 8 23 CMPL gg ATus. #1 
5 12 BNEQ $ 


F 12 
v00~000 sacitle desl abla. recere taste. records) 107388-1982 93:98:58 Di SKSVMSHASTER: LEXCHNG. SRCJEXC1O.832/1°" (189, 
32 4 is ge we ewotb EvOtB Trot toon told, volb Cvolb$t_vol_ident], .status); 
: ofs ios? § TES 
are 1328 Set position info common to all paths 
af 1309 dosv ([dos11$v_beg_of_tape] = false; 
380 1806 Count the blocks 
386 19ee dosv Cdos11$w_block_count] = .dosv Cdos11$w_iosb_skipcnt]; 
> 984 1066 RETURN .status; 
; 4985 1067 END; 
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; Routine Size: 


ae 


Sio_dosll_write (volb, buffer, len) 
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Reldosiicwrite (word, butter 1e=35p=1986 12:59:05 DISKSVMSMASTERsCEXCHNG-SRCJEXCIO.B3251°° (18), 
1 ot ROUTINE exch$io_dosll_write (volb : Sref_bblock, buffer, len) = %SBTTL ‘exch$io_dos1l_write (volb, b 
ag | 
! FUNCTIONAL DESCRIPTION: 
Write one block on a dos-11 sequential device | 
INPUTS: | 
volb = pointer to a volb which contains the active record stream 
buffer - pointer to the buffer containing the block 
len - length of the buffer | 
IMPLICIT INPUTS: 
dos11 context block hanging off the volb 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
dos11 context block hanging off the volb 
ROUTINE VALUE: | 
success if label, false if not a label or error status 
SIDE EFFECTS: 
| 
| 
| 
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i 
i 
: none 


$dbgtrc_prefix ("io_dosll_write> '); 


BIND 
dosv = volb Cvolb$a_vfmt_specific] : Sref_bblock ! Format specific block, contains iosb 


Sdebug_print. tit (‘entry'); 

Sblock_check (2, .volb, volb, 569); 

$Sblock_check (2, .dosv, dos { ; 

Slogic-check (2. (.dosv Cdosi{$v position_valid]), 37 

$logic_check (2, (NOT .dosv CdosTI$v_tape_mark]), 282); ! And that not should be right after a tape 
Slogic_check (2, (.dosv Cdos11$v_end_of_tape]), 288); ' But instead at the end of the tape 


| 
2); ' We should know where we are | 
| 
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evice and File 1/0 routines 1b-5e -1984 01:02: VAX-11 Bliss-32 V4.0-742 P 5) 
o_dosil_write (volb, buffer, len) 1 =300 71382 03:98:33 DISKSVMSMASTERSCEXCHNG. SRCJEXCIO.B32¢17" (17) 
t | 


! The minimum size io to a tape is 14 bytes. We assume that any shorter buffers are null 


Or 


added to at leas 
! 14 bytes. If the input length is 0 an outer routine has made a mistake. In addition, ali transfers are 


; even Length. 


Slopic check (2, (.len NEQ 0), 290); ! Make sure it is non-zero 
io_len = ye (.len, 14); ! Make sure it is at least 14 bytes long 
F .io_len <0,1,0> THEN jo Len = io_len + 1; ! If odd, then make it even 

lLogic_check (2: (,io_len CEQU 512),~291); ! Make sure it isn't too long 


Issue the io operation to write the next logical block in the forward direction 


| 
| 
func = Jop_wrigetbtk: 
IF .volb CVolb$v_read check] THEN func = .func OR io$m_datacheck; 
IF (status = $qiow (efn=0, 
chan=.volb Cvolb$w_channel], 
func=. func 
iosb=dosv (dos11$q_iosb], 
pl=.buffer 


p2=.io_len}) 


THEN 
| Status = .dosv Cdosli$w_iosb_status]; 


ECTONE .status OF 
Status is normal 
Css$_normal] : BEGIN 
Set the bits and pieces to reflect that the tape has moved 


Praca 
-—r lh 7) 


| 
| 
inish up based on the status | 


dosv [dos11$v_beg_of_tape] = false; 
dosv Cdos11$v_en sof taped = true; 
dosv [dos11$v_tape_mark = 


END; 
If this is the end, oops 
fss$_endoftape) : BEGIN 
LOCAL 
stat2; 
Signal that we have had a problem 


$exch_signal (exch$_dos11_ioerror, 2, : 
-volb Cvolb$l_vol_ident_len], volo Cvolb$t_vol_ident], .status); 


Set the bits and pieces to reflect that the tape has moved 


dosv (dos11$v_beg_of_tape] = false; 
dosv [dos!1$v_end_of_tape] = true; 
dosv (dos11$v_tape_mark = false; 


} Return the ss$_endoftape status 
END; 
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EXCHS 10 = Device and File 1/0 routines 18-Sep “13 4 VAX=11 Bliss -32 V4.0-742 Pa e 3% ExC 
fee 000 exch$io ‘dosti write (volb, buffer, len) 1e-8ep- 984 93: 95: a8 DISKSVMSMASTER: LEXCHNG. SRCJEXC10.832; 1 . 13 | v04 
: 1098 1178 | 74 
; 1999 112 : Any thing else and we better crap out | : ‘ 
: 1101 1181 COTHERWISE) : BEGIN i] 
: 1106 11 ¢ dosv Cdosi1$v_position_valid] = false; ! After an error, we don't know where we are 21 
; 110 P 11 exch_signal_feturn (exch$_dos11_ioerror | :] 
> 1104 1184 .volb CvolB$l_voT_ident_lend, volb Cvolb$t_vol_ident], .status); 33 
: 1105 i 5 oo END; | : ! 
: 1109 11 5 | ..1 
: 1108 1188 2 RETURN .status; :] 
; 1109 1189 1 END; | i] 
7 
: 1 
2 
07FC 00000 ENTRY EXCHS1O DOS) OS11_WRITE, Save R2,R3,R4,R5,R6,- ; 1068 3 
5A 000000006 EF 9E 00002 MOVAB EXCHSUTIL BLOCK CHECK, R10 ; 7 
59 000000006 00 3 00009 MOVAB LIBS$SIG Ro ~ : : 1 
38 000000006 8F D0 00010 MOVE” WEXCHS DOS11 IOERROR, RB ; i] 
37 900000006 00 9k 00017 MOVAB LIBSSTOP, R7~ ; :] 
36 000000006 8F »D 00018 MOVL vous ggartocic. R6 : i] 
5 04 AC 00 000 MOVL + 1112 3] 
32 041B00F3 BF D0 00089 MOVL res 8878879, R2 ; 1116 7] 
51 0239 BF 3 00 0 MOVZWL 3 :] 
50 3 pO 00035 MOVL  R3 * : : 1 
6A 16 00038 JSB Bett BLOCK_CHECK ; 71 
54 54 A3 DO OOO3A MOVL RZ : 1117 71 
52 003600FD BF pO 00055 MOVL #3339197; R2 ; : 1 
51 0254 8F 3C 0004 MOVZWL #59% ; i] 
50 54 DO OO04A OVL o° : : 1 
6A 16 B904D JSB Bae AO BLOCK_CHECK ; : | 
55 OC AG 4 004F MOVAB 12(R4), R5 : 1118 3 7 
0c 65 : 00053 LBS (R5), : 21 
7E 0110 8F 3C 90056 MOVZWL #272, -(SP) F : 1 
Qi DD 00058 USHL #1 : : 1 
$ DD 0005D PUSHL R6 F 71 
67 FB O005F CALLS #3, LIBSSTOP : : 1 
0c 65 2 f 0062 1$: C a2 (R5), 2$ : 1119 31 
7E 011A BF 3 00066 MOVZWL #282, -($P) : : 1 
gi DD 00068 PUSHL #1 : : 1 
DD 9060 PUSHL R ; 31 
67 FB $f CALLS #3, LIBSSTOP : : 1 
0c 5 - 99 : 2$ BBS ) : 1120 31 
E 0120 8 3C 0007 MOVZWL #288, -(SP : 3} 
gi DD 00078 PUSHL ; 3] 
$ DD 0007D PUSHL RG : 3:1 
67 03 F 7F CALLS #3, LIBSSTOP : 31 
Oc ac D O82 3$ TSTL LEN > 1125 31 
o¢ 12 000 BNEG 6 4$ : 21 
7E 0122 F 3C 7 MOVZWL #290, -(SP) 3 3 
9) DD C PUSHL #1 $ 3 7 
§ DD 9 PUSHL RG : 31 
67 03 F CALLS #3, LIBSSTOP ; 31 
0 0c AC DO 00093 4s: MOVL LEN, RO > 1126 31 
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soe ROUTINE exch$io_dosll_write_label (volb : Sref_bblock, lLabel_buf) = ZSBITL ‘exch$io_dos11_write_ 
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FUNCTIONAL DESCRIPTION: 
Write a label on a dos-11 sequential device 
INPUTS: 


volb = pointer to a volb which contains the active record stream 
label_buf = pointer to the Label to be written 


IMPLICIT INPUTS: 

dosi1 context block hanging off the volb 
OUTPUTS: 

none 
IMPLICIT OUTPUTS: 

dos11 context block hanging off the volb 
ROUTINE VALUE: 

success if able to write, false if error status 
SIDE EFFECTS: 


none 
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FUNC OOnNOu 


$dbgtrc_prefix (‘io_dosll_write_label> '); 


LOCAL 
func, 
status 


BIND 
dosv = volb Cvolb$a_vfmt_specific] : $ref_bblock ! Format specific block, contains iosb 


Sdebup_pr int 
$block_check 
splock. check 

k 


FUP PIS ES BS BS BBE EEE PW 


lit ("entry"); 
(2, .volb, volb, 469); 
, .d0Sv, aos! 5645; 
(2; 
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(,dosv 


$logic_chec 
(.dosv 


Slogic_chec 
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dos1{$v_position yaligh) 284); ' We should know where we are 
dos11$v~tape_mark]), 2855; i And that should be at a tape mark 
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i Issue the io operation to write a logical block in the forward direction 
ono ué-ve che k (3, (dos1$s_label_buf EQL 14), 286); 


5° 
ze 


no 
Ve 
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wige fur ine compilation 


ion 

func to8_wr 

IF weld mitt te read d,check4 THEN func = .func OR ioSm_datacheck; 

IF (status = $qiow ( 

shane, yous Cvolb$w_channel], 

furc=. 

losbedosy “tdos11$q. josb], 

61 

6 ! Set the bits and pieces to reflect that the tape has moved 


pi=.label_buf, 
b2=dos1i$s_ Label _buf)) 


status = .dosv [dos!11$w_iosb_status]; 
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Finish up based on the status 
sey eCtone -Status OF 
Status is normal 
Css$_normal) : BEGIN 


SERRE Ere re no 
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09 C9 09 C99 NINN NINN NIN NINO OO 


64 dosv (dos11$v_beg_of_tape] 
65 dosv 
66 dosv 


dos11$v_end_of_ stage! : true; 
67 END; bs 


dos11$v_tapée_mark false; 


Signal that we have had a problem 


i If this is the end, oops 

1 Css$_endoftape] : BEGIN 

¢ LOCAL 
stat2; 

4 

5 

6 


oak Signal (exch$_dosil_ioerror, 2, 
.volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident], .status); 


Set the bits and pieces to reflect that the tape has moved 
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dosv (dos11$v ~be _of_tape] = false; 
dosv [dos11$v_end_of_ tage = true; 
: dosv Cdos11$v_ “taps. mark = false; 
§ Return the ss$_endoftape status 
8 END; 
0 Any thing else and we better crap out 


BEGIN 
dosv Cdosi1$v_position_valid] = false; ! After an error, we don't know where we are_ 
$exch_signal_feturn (exch$_dos11_ioerror 

-volb CvolB$l_vol_ident “tend, volb Cvolb$t_vol_ident], .status); 
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EXCH$I1O 10 - Device and File I/0 routines 16-Sep-19 3 VAX-11 Bliss-32 V4.0-742 ge 43. 
FOen000 exch$io_dosll_write_tape_mark (volb) 14-Se ets 93: 96: 33 DISKSVMSMASTER : CEXCHNG. SRCJEXCIO. B32. 79 (2) | 
: : : } 4 1 ts ROUTINE exch$io_dosl1_write_tape_mark (volb : $ref_bblock) = ZSBTTL ‘exch$io_dos11_write_tape _mar | ; 
3 1 8 1 08 1 ++ ‘ 
3 1 1304 i | > 
; : 8 : B? FUNCTIONAL DESCRIPTION: | : 
: i } oF Write a single tape mark on a dos-11 sequential device ‘ 
: 1288 1309 | INPUTS: | 
3 i ¢e } Vy volb = pointer to a volb which contains the active record stream | : 
3; 3 3? 1 ig i IMPLICIT INPUTS: | : 
3 3 1314 ! . 
3 1238 1315 dos11 context block hanging off the volb ; 
3: 1239 1318 ! ; 
> 1240 1317 2 | OUTPUTS: | ; 
: 1241 1318 i : 
; seg 1319 2 | none ; 
: 124 1320 2} | ; 
3 1244 1321 5 i IMPLICIT OUTPUTS: : 
> 12465 1322 i : 
: 1246 1323 i dos11 context block hanging off the volb ; 
3: 1247 1324 i ; 
3: 1248 136? i ROUTINE VALUE: : 
3 1249 1326 i : 
; 1250 1327 i success or error status : 
: 1251 1328 2! ; 
3 1526 1362 2 i SIDE EFFECTS: ; 
: 125 1330 § ! ; 
3 1254 1331 i none : 
: 1255 1336 2 i- ’ 
3 1256 1333 2 ; 
3; 1257 1534 Sse $dbgtrc_prefix (‘io_dos1ll_write_tape_mark> '); : 
3; 1258 1335 3 
3; 1259 1336 2 LOCAL 3 
: 1260 1337 2 status : 
3: 1261 1338 2 ; F 
3 1508 1339 2 3 
3; 126 1340 § BIN ; ns MiGs : 
3 1264 1341 ”4osv = volb Cvolb$a_vfmt_specific] : $Sref_bblock ! Format specific block, contains iosb | : 
3 1265 1342 2 3 : 
3 
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v04 exch$io_dosll_write_tape_mark (volb) 14-Sep-1984 12:29:05 DISKSVMSMASTER: CEXCHNG.SRCJEXC1I0.B32;1 (21) | V 
; 1267 1343 $debug_print tit (‘entry'); | : 
; 1268 1344 2 S$block-check"(2, .volb, volb 606); | 2 
31 $9 1345 2 $block=check (2. .dosv. dosi1, 607); 3 
3 } 4 | rf Slogic-check (2, (.dosv Cdos1{$v_position_valid]), 271); ! We should know where we are .4 
: : if : rh Issue the io operation to write the tape mark : . 
> 1274 P1350 3 IF (status = Sqiow (efn=0, | : 
: 1275 P 1351 chan=.volb Cvolb$w_channel), | .4 
3 1276 Pj 2¢ func=io$_writeo 2 
> 1277 135 iosb=dosv Cdos11$q_iosb])) | i] 
3; 1278 1354 HEN ‘ 1 
; ; ie : 2? status = .dosv (dos11$w_iosb_status); | : 4 
3 \¢o) 320 | If either the gio or the io operation failed, scream and shout ; , 
; 1583 1322 IF NOT .status | : 
3; 1284 1360 A ° 1 
; 1285 1361 ~Status NEQ ss$_endoftape ! End of tape can be ignored ) 
: 1589 1368 | i. 
>; 1288 1364 3 dosv Cdos11$v_position_valid] = false; ! After an error, we don't know where we are | ; ! 
+ 1289 P 1365 ; $Sexch_signal_return (exch$_dos11_ioerror, 2, ; ‘ 
3; 1290 1366 .volB Cvolb$(_vol_ident_lenJ, volb Cvolb$t_vol_ident], .status); ‘ } 
> 1291 1367 END; : | 
; 1s36 1368 4 : 
; \S37 139) : Set the bits and pieces to reflect what we did to the tape | 
; 1295 1371 § dosv £gos | 13v_end_of tage) = true; | 
: 1296 1378 dosv Cdos11$v_tape_mark = true; 
; 1297 1373 2 
> 1298 1374 2 RETURN .status; 
: 1299 1375 1 END; | 
007¢ 00000 ENTRY EXCHSIO DOS11_WRITE_TAPE_MARK, Save R2,R3,- ; 1301 
56 000000006 EF 9E 00002 MOVAB EXCHSUTIL_BLOCK_CHECK, R6 ; 
54 04 AC dO 00009 MOVL yoke 3: 1341 
52 041B00F3 BF b0 00000 MOVL #68878579, R2 : 1344 
51 025E Hy f Opes MOVZ2WL #606, R1 3 
50 4 00 00019 MOVL §=R4, RO : 
66 16 0001C JSB EXCHSUTIL BLOCK_CHECK ; 
53 54 A& DO 0001 MOVL 4(R4) : 1345 
52 003600FD  8F b0 99 MOVL #3539197, R2 ; 
51 025F F C 00 MOVZWL + oad Ri : 
50 3 00 0008E MOVL = R3,_ RO ; | 
66 16 90031 JSB EXCHSUTIL_BLOCK_CHECK 3 | 
14 oc A 5 00 ; LBS 12(R3), 18 : 1346 
7E 010F F C 000 MOVZWL #271, -(SP) : 
1 dd 0003C PUSHL @# : 
000000006 00 77S FF Pe bode CALLS HR LIBSSTOPS 
E 7c O28 1$: CLRO = = §P) > 1353 | 


Exeus10 10 = Device and File 1/0 routines 16- 
Vv04- exch$io_dosli_write_tape_mark (volb) 14- 
7E 7C 00040 

7E 7¢ § 4F 

7E 7C 2} 

1E AS OF 

2 Bo 28 

7E 4A AG 3C 0005 

7E D4 0005C 

000000006 90 FR 443 

5 DO 0006 

07 F? 0068 

HOG tine 

00000878 éF 22 D1 $0092 

6 13 00079 

oc A3 1 8A 0007B 

52 00000000G 8F 00 O007F 
55 0D Boas 

69 A& SF 00088 

65 A& DD 00088 

9g DD OO08E 

52 0D 00090 

000000006 00 05 FB 90092 

50 52 00 00099 

04 0009C 

oc 8 A3 OC 88 0009D 

50 55 DO OO0A1 

04 O00A4 

; Routine Size: 165 bytes, Routine Base: EXCH$IO_CODE + 097D 
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se” 


2$: 


3$: 


pr198 93:98:88 «DT RKSUMGMASTERSCEXCONG ¢ 


=(SP) 

-(SP) 

-(SP) 

30(R3) 

#40 

74(R4), =(SP) 
i sP) 

#i2, SYS$Q10W 
RO, STAT Us 
$0CH8): 4 
0(R3) TATUS 
STATUS, 

ans 5 73168 
; 12(R 

PEKCHS. Ras11 _IOERROR, TEMP 
STATUS” 

105(R4) 
101(R4) 

#2 


aa 
#5, LIBSSIGNAL 
TEMP, RO 


#12, 12(R3) 
STATUS, RO 


Re Be Be Be Be Se Se Fe Se Fe Se Se Fe Fe Se Se Ge Fe Se Se Fe Fe Se Fe Se Be Se 
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Excuse 0 = Device and File 1/0 routines 18-Sep-19 4 + 9 < 33 VAX-11 Bliss-32 V4.0-742 Pege 46 
v04 exch$io_rtil_read (volb, pbn, cnt, adr) 14-Sep-1984 12: DISKSVMSMASTER: CEXCHNG. SRCJEXCIO.B32;1 (22) 
; 1301 1 re } GLOBAL ROUTINE exchS$io_rtll_read (volb : Sref_bblock, _%SBTTL Rt rtil_read (volb, pbn, cnt, adr)’ 
3 1 oe ir 6S blkpbn, bikent, “pufadr : $ref_bvector) = 
; 130 1 5 BEGIN 
: 1304 137 
; 1305 1 i* 
3 ") 1 , i FUNCTIONAL DESCRIPTION: 
; 130 1 ¢ i 
: 1508 1 i Read a range of ‘'physical’’ blocks from the device. Block 
: : 11 } : numbers are in the range 0 to MaxBlocks-1. 
: 1311 1 ] i INPUTS: 
: 1 \ 1 4 i 
3; 1351 1388 i volb = pointer to a volb which contains the active record stream 
3 1314 1389 i blkpbn - starting physical block number on device 
3 : 12 } si blkcnt = number of blocks to read 
3: 1317 1 3 i IMPLICIT INPUTS: 
; 1318 139 ! 
3; 1319 1394 i none 
: 1320 1395 i 
3 135! 1396 i OUTPUTS: 
s 15 ¢ 1397 i 
3: 132 1398 i bufadr - pointer to buffer to receive the data 
3 1324 1399 i 
: 1325 1400 i IMPLICIT OUTPUTS: 
3; 1326 1401 i 
; 1327 1008 i none 
: 1328 140 i 
3 13¢8 1404 i ROUTINE VALUE: 
; 13350 1405 i 
3 1331 1406 § i success or error status 
: 1336 1407 i 
: 1333 1408 2 i SIDE EFFECTS: 
3 1334 1409 § i 
3s 1335 1410 i none 
3; 1336 1411 2 i- 
3; 1337 Vols 2 
3 1332 141 $dbgtrc_prefix (‘io_rtll_read> '); 
s 1338 1414 
; 1340 1415 LOCAL 
3 1341 1416 cheats _buf : Sbvector Cctx$k_buffer_length], 
3 1308 1417 2 bytecnt, 
3 1 1418 cena tarved, 
s 1344 1419 lbn, 
3: 1345 1420 status 
: 1 $ 1421 ¢ 
eo 1456 
3 1348 14 BIND ; 
: 1349 16¢4 fab = .volb Cvolb$a_fab] : $bblock, ! New name for File Access Block 
; 1350 1425 rab = .volb [volb$a_rab] : $bblock, |! New mame for Record Access Block 
: 132) i § nam = .volb Cvolb$a_nam) : Sbblock ! New name for NAM block 
3 1383 1428 
: 1354 1429 $block_check (2, sYolb, volb, 527); 
3; 1355 1430 $trace_print_fao (‘pbn!SUL, cnt! 3UL, adr !XL, volb !XL", .blkpbn, .blkcnt, .bufadr, .volb); 


—$—$— - ———— a - - ; 
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ExcUs}0 10 - ahevice and File 1/0 routines 16-Sep-1984 + 9 +06: 33 VAX-11 Bliss-32 V4.0-742 47) 
v04- exch$io_rtil_read (volb, pbn, cnt, adr) 14-Sep-1984 12: DISKSVMSMASTER : CEXCHNG. SRCJEXCIO. B32. 79 * (23) | 
; : ef Fg 1 } Adjust the externally useful block count to the RMS required byte count ‘ 
; 1359 14 : $logic check i. CS -pigens GTRU 0) AND (.blkent LEQU 127)), 140); ; 
3 } 9 1° : bytecnt = .blkcnt 12; | : 
3 \ 6¢ 1? $ } Return an end of file error if the request is past the end of the device ‘ 
; ! 2 1 : If -blkpbn GEQU .volb Cvolb$l_volmaxblock] ‘ 
3 : $8 re RETURN exch$util_file_error (exch$_readerr, rms$_eof, fab, 0); | ‘ 
3; 1368 1366 ! Adjust the externally useful ‘'physical"’ block number to the RMS required | : 
3; 1369 144 : oe block number ‘ 
: 1370 1444 2 i : 
: 1371 1445 3 ibn = ! Assume volume relative Lbn. | : 
: 13% 1446 ¢ IF .volb CvoloSv_virtual] | : 
: 137 144 THEN : 
3 : re 1728 Lbn = .lbn + 1; ! File-relative virtual block numbers ‘ 
3 1378 1450 ! See if the request is for block 0 | ‘ 
3 Sore 1451 ‘ 
: 1378 1326 IF .lbn EQL 0 ‘ 
3; 1379 145 THEN : 
; 1380 1454 BEGIN : 
3; 1381 1455 : 
; 1386 1238 ' Since BKT = 0 means woquent ies read, we must trick it with the : 
3 ti et documented technique REWIND, then set BKT=0. | : 
; 1385 1459 4 IF NOT (status = $rewind (rab = rab)) : 
: 1386 1460 3 vena ‘ 
3; 1387 1461 4 ’ 
; 1388 1696 4 Sdebug_ print_lit (‘rewind error' : 
: 1389 1465 4 — “exch$util_ file error yt _readerr, .status, fab, .rab Crab$l_stv]); ; 
; 1390 1464 ; | ; 
3; 1391 1465 ; 
; 139¢ 1466 END; | ; 
3; 139 1467 . 
: HE ye | ‘ij ! Set the RMS record stream buffer and block parameters : 
; 1396 1470 rab Crab$l_ubf] = .bufadr; ! User buffer address | ; 
; 1397 1471 rab Crab$w_usz] = -bytecnt: ! User buffer size ; 
; 1398 1676 rab Crab$l"bkt] = ; 
3; 1399 147 : 
: 1400 1474 Read the chunk : 
: 1401 1475 3 
: 1208 1476 i NOT (status = $read (rab = rab)) ; 
3; 140 1477 —, F 
: 1404 1478 : 
3: 1405 1479 Sdebug_ print, {eo (‘error at lbn !UL bik_cnt !UL', .rab Crab$l_bkt)], .rab Crab$w pons / 512); 3 
3: 1406 1480 $check-call 4, exch$util_file_error, exch$_readerr, .status, fab, .rab Crab$l_stv 3 
3: 1407 1481 c ,status EQL rms$_rer 3 
3; 1408 1086 3 
3; 1409 1485 4 "BEGIN : 
3: 1410 1484 4 LOCAL . 
3 1411 1485 4 stv, : 
; ig 1486 4 stat_1; : 
3 141 1487 4 stv = .rab Crab$l_stv]; : 


—$——$— $$ - ~-y 
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ExCUs 19 10 - Device and File 1/0 routines 1b-Sep-19 4 91:98:33 VAX-11 Bliss-32 V4.0-742 Page 48 
v04- exch$io_rtil_read (volb, pbn, cnt, adr) 14-Sep-1984 12:29:0 DISKSVMSMASTER: CEXCHNG. SRCJEXC10.832;1 (23) | 
> 1414 14 S 4 stat_] = exch$io_rtll_read_1 (.volb, .blkpbn, .blkcnt, .bufadr); . | ‘ 
; 1ei2 1 4 ? IF .Stat_1 : 
3 1219 P1491 4 Sexch_signal (exch$_readerrrec, 2, .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident], ; 
: 1418 1336 4 »Status, .stv); ° 
: 1419 1493 4 RETURN .stat_1; : 
: 1420 1494 4 END | : 
: 1421 1495 ; ELSE ‘ 
3; 14 § 1638 RETURN exch$util_file_error (exch$_readerr, .status, fab, .rab Crab$l_stv]); ; 
3 14 149 ND; | : 
3 1426 1498 : 
3: 1425 1499 transferred = .rab Crab$w_rsz); ! Save actual byte count ‘ 
; i $ 1200 if goremncerres NEQ .bytecnt !2?shouldn't happen, but has been ‘ 
; 1428 P 1206 $Sprint_fao (‘transfer count error, requested !UL bytes, received !UL bytes, status !XL', ‘ 
3 1068 120? byiecnt, .transferred, .status); ° 
3 1431 1505 ! If read checking, reread the chunk and compare ; 
3 UR 1506 : ; 
3 143 1507 IF .volb Cvolb$v_read_check] ‘ 
; 1eee 1508 THEN ; 
3 1435 1509 BEGIN ; 
: 1436 1510 LOCAL | ; 
; 1437 1511 en; ‘ 
; 1438 1312 ; | : 
3; 1439 151 ' See if the request is for block 0, if so rewind ‘ 
> 1440 1514 i : 
3 1441 1515 IF .lbn EQL 0 : 
: | 1516 THEN ; 
: 144 1517 4 BEGIN : 
3 1444 1518 5 IF NOT (status = $rewind (rab = rab)) , 
> 1445 1519 4 THEN : 
3 1446 1330 5 BEGIN ; : 
3 1447 1521 5 seeoua_print Lit ("rewind error'); : 
3: 1448 1358 5 RETURN exch$util_file_error (exch$_readerr, .status, fab, .rab Crab$l_stv)); : 
3 1449 1523 4 END; : 
; 1450 13s¢ ; END; ‘ 
3 1451 1525 : 
: 1026 1358 len = .bytecnt; : 
3 145 1527 ; 
3 1454 1528 rab Crab$l_ubf] = check_buf; ! User buffer address : 
: 1455 1368 rab Crab$w_usz]) = .len; ! User buffer size 3 
> 1456 1530 rab Crab$i-bkt] = .lbn; : 
3 1457 133! ; : 
3; 1458 15 ¢ ! Read the chunk again : 
3 1459 13g : : 
3; 1460 1534 4 IF NOT (status = $read (rab = rab)) : 
1283 133% 2 Neco 
: 1268 1339 4 $trace_print_fao (‘reread error at lbn !UL blk_cnt !UL*, .rab Crab$lt_bkt], .rab Crab$w_usz] / 51 3 
3 1466 1538 4 $check_call T4, exch$util_file_error, exch$_readcheck, .status, fab, .rab Crab$l_stv]); 3 
3: 1465 1539 4 IF .status EQL rms$_rer ; 
: 16 1540 4 THEN F 
: 146 1541 BEGIN : 
E 1468 1348 LOCAL | : 
3: 1469 154 stv, : 
: 1470 1544 § stat_1; : 


13 | 
EXCHS 10 = Device and File 1/0 routines 1b-Se -1984 01:02: VAX-11 Bliss-32 V4.0-742 Page 49! 
FOce000 exchSio rtil read (volb, pbn, cnt, adr) 127800 - 1382 93:98:38 DISKSVMSMASTER: LEXCHNG, SRCJEXCIO.B32:1> (23. 
; 1471 1545 stv = .rab Crab$l_sty]; 
; Vane 1 ‘3 stat_1 = exch$io_rtll_read_1 (.volb, .blkpbn, .blkcnt, .bufadr); 
; 147 154 IF .stat_1 
: 1474 1548 THEN 
3; 1475 P 1549 Sexch_signal (exch$_readcheckrec, 2, .volb Cvolb$l_vol_ident_lenJ, volb Cvolb$t_vol_ident], | 
3 147 1551 RETURN .stat_1; 
: 1478 1 § END 
3; 1479 1 4 ELSE 
; 1480 1228 & RETURN exch$util_file_error (exch$_readcheck, .status, fab, .rab Crab$l_stv]); | 
: 1481 1555 ND; 
i 188 1389 | 
3 14 1 IF CHSNEQ (.len, check_buf, .len, .bufadr, 0) 
> 1484 1558 THEN | 
> 1485 1559 4 BEGIN 
: 1486 L 1560 4 ZIF switch_trace 
3 1487 U 1561 4 XTHEN 
: 1488 U 1206 4 LITERAL 
: 1489 U 1565 4 chunk = 100; 
3; 1490 U 1564 4 LOCAL 
3 1491 U 1565 4 So ! count of loops 7 | 
3 1636 U 1566 4 l ! Length of string rene tating : 
3 149 U 1567 4 al, ! address of remainder of string 1 
3 1494 U 1568 4 a2; ! address of remainder of string 2 
3 1495 U 1569 4 c = 0; 
: 1496 u 1570 4 t= .len; 
3: 1497 U 1571 4 al = .bufadr; 
: 1498 U 1376 4 a2 = check_buf; 
3; 1499 U 1573 4 err bge..F ont _ tee ("pbn!SUL, cnt!3UL, adr !XL, volb !XL', .blkpbn, .blkcnt, .bufadr, .volb); 
; 1500 U 1574 4 WHILE .l GTR 0 
; 1501 u 1575 4 DO 
; 1308 U 1576 4 BEGIN 
; 150 U 1577 4 LOCAL ; 
3: 1504 U 1578 4 Ll; ! Length for this loop 
; 1505 u 1579 4 gs .¢ @ fs 
; 1506 U 1580 4 LL = MINU (.L, chunk); 
; 1507 U 1581 4 IF CHSNEQ (.L[, .al, cll, .a2, 0) 
: 1508 U 198¢ 4 THEN | 
> 1509 U 1583 4 BEGIN Sade. 
; 1510 U 1584 4 $trace_print_fao ("!4UL ‘““!AF', .c, Ll, .al); 
> 1511 u 1585 4 $trace_print_fao (' tinge, LUC, 20d): 
; 1318 U 1586 4 ND; 
3; 151 U 1587 4 l= .l = chunk; 
3; 1514 U 1588 4 al = .al + chunk; 
3; 1515 U 1589 4 a2 = .a2 + chunk; 
3; 1516 u 1590 4 END; 
3; 1517 1591 4 FI 
: 1518 1336 5 BEGIN 
3 1519 1593 5 LOCAL 
; 1359 1594 5 stat_1; 
; 1521 1595 5 stat_1 = exch$io_rtll_read_1 (.volb, .blkpbn, .blkcnt, .bufadr); 
3; 15 g 1398 5 IF .Stat_1 | 
3 13 159 : THE : : 
3: 1524 1598 $Sexch_signal (exch$_readcheckrec, 2, .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident]); | 
: 1525 1599 5 RETURN .stat_1; | 
3 1358 1600 4 END; 
3; 1527 1601 3 END; | 
| 
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10 = Device and File 1/0 routines 16-Sep- 1: VAX-11 Bliss-32 V4.0-742 
exch$io_rtil_read (volb, pbn, cnt, adr) 12: ~Sen- 1382 9}: 98: 3 DISKSVMSMASTER: LEXCHNG. SRCJEXCIO. B32, ; 9¢ 339 
16 3 END; 
¢ Check to make sure that the correct number of bytes was found 
1908 iF transferred NEQ .bytecnt | 
1908 Slogic_check (0, (false), 315); ' This error should not occur | 
1610 RETURN .status; 
1611 END; 
-PSECT EXCHSIO_PLIT,NOWRT,2 
6F 63 20 72 65 66 73 6€ 1 72 74 QOO3C P.AAH: .ASCII \t f t 4 ! 3 
Sf $F go 7g $3 86 73 OF $} ag ae 44345 ransfer count error, requested !UL byte\ 
oo 68 fe 69 BS BS GS 28 30 st $8 Boose ASCII \ eed 10. bytes, cheek te | 
F = ! . tus !XL\<0><0>_ ; 
61 74 20 2¢ 73 65 7% 79 6 20 0073 pied enti Siping mnpetiate : 
00 00 4C 58 21 Bones 3 
00 0008 eASCII <0> 3 
010E0049 00088 P.AAG: .LONG 17694793 F 
00000000* 0008C “ADDRESS P.AAH 3 
«EXTRN SYSSREWIND SYS$READ 
EXTRN EXCH$_READERR 
~EXTRN EXCHSOTIL FRO FFER 
EXTRN LIBS$PUT borpure VEXCHS. READCHECK 
EXTRN EXCHS_ READCHECKREC 
PSECT EXCHS$IO_CODE,NOWRT,2 
OFFC 00000 ENTRY Ras Ae ATOR READ, Save R2,R3,R4,R5,R6,R7,- ; 1376 
SE E7FC CE 9 00002 MOVAB Rela 48(S : 
54 04 AC 00 00007 MOVL VOL 3 1424 
10 A& DD 00008 PUSHL yocRd) ; 
53 14 A& 00 0000 MOVL : 1425 
52 041B00F3 BF bd 0001 MOVL noseres79, R2 + 1429 
51 O20F 8F C 0001 MOVZWL 3 
50 54 00 OOOIE MOVL R4, RO 3 
000000006 EF 16 900 1 JSB EXCHSUTIL_BLOCK_CHECK : 
5A oc at 9 3 7 MOVL BLKCNT, RTO 3 1433 
9 13 00028 BEQL : 
Q000007F 8F A 01 4 D CMPL R10, #127 3 
13° 1B 000 BLEQU $ : 
7E 8C F 9A 00036 1$: MOVZBL #140, -(SP) ; 
1 DD 96 A USHL #1 : 
00000000G 8F ODD C PUSHL aS. LIBSs BADLOGIC F 
00000000G 00 83 F bt5 CALLS $STOP 3 | 
9 SA 9 78 00049 2$: ASHL , R10, BYTECNT : 1434 
56 08 AC 00 0004D MOVL Hf KPBN, R11 : 1438 
44 AG 5B D1 00051 CMPL =o RIT, 68(R4) : | 
3 1F 00 3 BLSSU 38 3 
E 04 00 CLRL -(SP) + 1440 | 
04 AE 0D 00059 PUSHL 4(SP) : | 


10 - Device and File 1/0 routines 
exch$io_rtli_read (volb, pbn, cnt, adr) 


02 48 


000000006 


4 

20 

8 
000000006 


0001COF4 


0000V 


000000006 


000000006 
scocoeres 
3 4 


000000006 


OWMSo FPrPruU! OWIO 
"OVO WWO WO 


0810 


000000006 


0000° 


0001827A_ BF 


OOCA 
B 
4 
8 
06 =A 
5 
« | 
; 
009¢ 
10 «AC 
: 
5 
‘i 
55 
55 
74 
oc AS 
56 
5A 
8F 
04 
50 
25 
: 
69 Ad 
65 A4 
02 
Be 
$s 
22. AS 
57 
50 
1A 
i 
i 
CF 
9s 
0 
bt 
1 
00c8 
04 af 
i 
a 


1 
1 


OVID OO Sw "So 


CSOOCOCOCOCOCOCOOOOOCOCOoOOOoOoO 
SSeS so anime AOou 


00000 
[ooNnw™ 


SSSSSSSSSsSsssSssssssssssssssssss 
> 
= 


ooo 
Qow 
cP heal 


QO 
mo > 


ooo 
r= 


m 
NOWO 


SO OMWM NSO NOCD —-VCITWOIT MOTT OV OMI "DWIOVT9F -9OMI *"VVOWMWIIWwMI "99 -VT9T9MIWwWs 
COWS OOO DD MI DOWH FO LOD 9T 9 79 OOWWI FC ON $$ BOW F OOOO" BODIOAVUUILSA 0-9 


SOOOCOCCOOOOOCOOOCOSOOOOCOSOOOSOOSOOOOSOOOCOOCSOOOOOOSOOOSOOOOOOOOOOOOOOOOOO 
SOOOCOCOOSOSOSOOOSOOSOSOOOOOOoOSSSoO 
oo ee tt tt tt tt + + 4 Pt Tt 5 oo 4 


RH 2OOOT TNT HMMM rn 


— POL —OVWOWO SVv0lW 


5$: 


vu oO 
rw 


oOo oo 
ren 


v4 


#98938 
11$ 


R11,_LBN 
#4, 72(R4), 4$ 


STATUS, 
10$ 


#1, SYSSREAD 
RO, STATUS 
STATUS, 7$ 

STATUS, #114932 

12(R3), STV 

R6 

R10 

#AM<RG,R11> 

#4, EXCHSIO_RT11_READ_1 


XCH$_READERRREC 
» LIBSSIGNAL 


34(R3), TRANSFERRED 
| atattane BYTECNT 


~— 


#4, EXCHSUTIL_FAO_BUFFER 
#1, LIBSPUT_QUTPUT 
#1. 72(R4), 98 


R7 
#*M<RO 
BYTECN 


4(SP), 12$ 


#1, SYSSREWIND 
RO, STATUS 


) 


-1984 01:02: VAX-11 Bliss-32 V4.0-742 Pa 1 
or198e 93:98:38 DISKSUMSMASTER: CEXCHNG. SRCJEXC1O.832;1°" (23) 


13 | 
-S$ep-1984 01:02: VAX-11 Bliss-32 V4.0-742 Pp 2 | EX 
=300 71382 93:98:38 DI SKSVMGMASTERSLEXCHNG SRCJEXCIO.B32097" (235, 


uean 10 = Device and File 1/0 routines 


exch$io_rtil_read (volb, pbn, cnt, adr) 
10 5 


of 4A 

4 A 
00F 81080 

20 i 08 

0 A 

8 A 


000000006 90 


oz 


10$:  PUSHL 1522. 


nuh 


a 

~ 

we 
z2ov0v 
ow 

< 

c 


LEN 
36(R3) 


UF 

(RS) 

6(R3) 

CALLS #1, SYSS$READ 
0; STATUS 


U 
TUS, 16$ 
TUS, #114932 


R3), STV 


ST 
12 
4( 
ST 
118: PUSHL #1 
15 
BY 
CH 
LE 
L 


vit 2 
—" 


QOO1COFS 8F 
53 oc 


0810 


> 
O_RT11_READ_1 


a 
A 
$ 
( 
0 
M< 
0000V ° 
A 
V 
A 
5 
1 


es 


000000006 


C808 SIN NIN IP AAA MII EAI AI nononyd 


xc 
T 


EADCHECKREC 
SIGNAL 
RO 


000000006 00 
50 13$: MOVL 


A 
14$: PUSHL : 
PUSHL STATUS 
PUSHL #EXCHS$_READCHECK 
15$: CALLS #4, EXCHSUTIL_FILE_ERROR 


16$: CMPC3 LEN. CHECK_BUF, (R6) 
B : $ 


; 1554 


oc 
04 


000000006 


e— YB BB -YNYNDWBSBIAA——-YNY DsVewD 


T 
T 
4 
2 
6 
: 
4 
0 
T 
T 
T 
0 
0 
2 
E 
6 
T 
2 
( 


0.0000 


00000000G_ EF 
66 08 AE 


pele lolelelelelelelelelelelelelelelelelelelelelelelelolelelololololelolololo) 


OF—-NMonOoIoITVTCITO "VIVO OVUOMIO"WoOVTIIO-OoOMo"OOWoUo-VvcVTI7gCOMm 
pe Se er Se ne er a er ne Se ae a a ae a an a a a a a a a a a a ae a a ae ae ar ae ae ae ae a a er a ee ee er ee ee ee ee er er ee ee ee er er es 


OTOWOS DOO 9T9 SFOWVT9T 9 NO 9 OOWDDWI I ON" BOWT OOMo—--GoUC00@ 


B88 hh 8 8h 8 88S SSS SSS SS38S33S3333sssssssssS3s3ssssssssss 


DD 
0810 > 
O_RT11_READ_1 


— — ——> 
ww wn 
ov ws 
wn on 


0000Vv f 
1 


69 
65 


000000006 


MODOPY FPVisoOwv7yw1__ OOPS SF NOWOP PVMVIMNODVNV PF NMNIVIVNIO VII S VIP own 


MMV VMVLMHMLLRUOLBPAONM LMA OMSL LSUWOOL  POwWlLUNMO-"WOrnum oy» 


000000006 9 


17$: MOVL 


188: BLBC 7,198 
0138 MO : 1608 | 


000000006 


o 
> 
o 
e 
e 
i 
e 
e 
ca 
e 
e 
*. 
oO 
2 
o 
e 
e 
° 
e 
e 
e 
e 
e 
oO 
2 
o 
o 
. 
e 
e 
. 
* 
e 
a 
o 
e 
. 
eo 
o 
e 
a 
. 
° 
° 
e 
. 
e 
e 
- 
° 
° 
a 
o 
. 
. 
f 
e 
. 


oO 
> 
et 
= 
nw 


MNnoOIVVVIOOOOOowWwWwWwIOr>rs YS 


bole lole tole le lolelolololololelololq) 


@oooww 


PUSHL #EXCHS$_BADLOGIC 


N 13 Fe © 
FOec000 exchs oyreti read. volbe sin. cnt, adr) 12 4 71382 9): 88: 33 Df akSvMSHASTER orbxcHne $ SRCJEXC10.832; v0 
commons AE EB ASTER ou BEY Sst Hg 


; Routine Size: 503 bytes, Routine Base: EXCHSIO_CODE + 0A22 


ae 4 


<m 
y+ 
co 
‘x 
oom 
S35 
o- 
xO 
o 
at 
Lo 


B14 
Device and File 1/0 routines 16-Sep-1984 01:02:3 VAX-11 Bliss-32 V4.0-742 Page 54 
Sio_rtli_read_1 (volb, pbn, cnt, adr) 14-Sep-19 4 95:98:08 DISKSVMSMASTER: LEXCHNG. SRCJEXC10.B32: 1° (24) 


; 1539 1618 1 GLOBAL ROUTINE exch$io_rtll_read_1 (volb : $ref_bblock, ZSBITL ‘exch$io_rtl1_read_1 (volb, pbn, cnt, | ‘ 1 
: 1540 1613 1 blRpbn, blkcnt, bufadr : $ref_bvector) = | i] 
: 1541 1614 2 BEGIN | :] 
31 ag 1615 144 : 
: 154 1616 i :] 
; 1346 1917 | FUNCTIONAL DESCRIPTION: : : 
; 1546 1619 ! Read a range of ‘'‘physical"’ blocks from the device. Block numbers are in the range 0 to MaxBlocks-1.. ; 1 
3 120% 1? » } Blocks are read one at a time to try to locate bad blocks ; ! 
; 1549 16 2 2 ! INPUTS: 2] 
; 1550 16 :] 
; 1551 1624 : volb = pointer to a volb which contains the active record stream : 1 
; 1226 1625 : blkpbn = starting physical block number on device : 1 
3; 155 1626 : blkcnt = number of blocks to read :] 
; 1554 16e7 ¢ i] 
; 1555 1628 3 ' IMPLICIT INPUTS: : 1 
; 1556 1629 2! :] 
3 1557 1630 2! none : 1 
3 1558 1631 2} : 1 
; 1559 1632 2 ! OUTPUTS: 21 
; 1560 1633 2! : 1 
3 1561 163% eo! bufadr - pointer to buffer to receive the data : 1 
; 1562 1635 2! :] 
; 1563 1636 § ! IMPLICIT OUTPUTS: $7 
3 1564 1637 ! : 1 
3 1565 1638 2! none : 1 
3 1566 1639 2! 3 
3 1567 1640 2 ! ROUTINE VALUE: ‘7 
; 1568 1641 2! 3:7 
3 1569 1662 2! success or error status 2s 
: 1570 1643 2! 37 
3 1571 1644 2 ! SIDE EFFECTS: $7 
; 1572 1645 2! i] 
3 1573 1646 2! none 3% 
> 1574 1647 2 !-- . 7 
3: 1575 1648 § 72 
: 1576 1649 $dbgtrc_prefix (‘io_rtll_read_1> '); a¢ 
: 1577 1650 2 e< 
; 1578 1651 2 LOCAL 3 
; 1579 1936 2 check_buf : $bvector (512), a4 
: 1580 1653 2 adr, a4 
3; 1581 1654 2 lbn, a 
: 1386 1655 status 3 § 
3: 158 1656 ; : 
3 1584 1657 3 
3; 1585 1658 BIND : 
3 1586 1659 fab = .volb Cvolb$a_fab] : Sbblock, ! New mame for File Access Block : 
: 1587 1660 rab = .volb [volb$a_rab] : $bblock, ! New mame for Record Access Block a4 
; 1588 1661 nam = .volb Cvolb$a_nam] : $bblock ! New name for NAM block a4 
3; 1589 1906 : 34 
: 1590 166 ; 
3; 1591 1664, 2 $block_check (2, -yolb, volb, 563); : 
3 1592 1665 $trace_print_fao (*pbn'SUL, cnt!3UL, adr !XL, volb !XL", .blkpbn, .blkcnt, .bufadr, .volb); : 
ga 
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v04-000 exch$io_rtli_read_1 (volb, pbn, cnt, adr) 14-Sep-1984 12:29:05 DISKSVMSMASTER: CEXCHNG. SRCJEXC10.832;1 (25) 
196 Slogic check (2, ((.blkcmt GTRU 0) AND (.blkcnt LEQU 127)), 205); | 

166 ! Adjust the externally useful ‘‘physical’’ block number to the RMS required | 


logical block number 


$logic_check (2, (.blkpbn LSSU .volb Cvolb$l_volmaxtlock]), 213); | 
! Assume volume relative Lbn. 


Lbn 3 .blkpbn; ; 
F avets Cvol6$v_virtual] 
Ltin = ,lbn + 1; ! File-relative virtual block numbers 


See if the request is for block 0 
iF _.Ubni EQL 0 | 
THEN: | 
BEGIN 
| 


! Since BKT = 0 means cogent iS read, we must trick it with the 
REWIND, then set BKT=0. 


if NOf (status = Srewind (rab = rab)) 
THEN ° 


documented technique o 


_prin ‘rewind error’); 


t_lit ( 
Hd URN exch$util_file_error (exch$_readerr, «Status, fab, .rab Crab$l_stv]); 
END; 
Prepare for the loop 


adr = .bufadr; 
DECR cnt FROM .blkcnt-1 TO 0 
7 BEGIN 
: Set the RMS record stream buffer and block parameters 


rab rab${_ubf] 
rab Crab$l_bkt 


} Read the chunk 
if NOT (status = $read (rab = rab)) 
THEN GIN 


BE 
$trace_print_fa 
AN a exch$uti 


io 
AUS WN $$ O OONAUES WN $$ O OONOAOUES WN OOO NOUSWN—OO® 


adr; ' User buffer address 
.lbn; 


SSS SSD DDD AAA AA AAA AAA AA AAA AAAAAAAAAA OS 


AAAAASAAAAAAAAAASAAAAAAASAAAAAAOASASAAAAAAAOMIVIVIVG 
WAI AAINWWINIAIIRIRNIPINIPIDINININIDY 2 2 OO SS SS KH DOOOCCOCOOCOCOCOOCWOOOOOO OW 
DOOOCOCOCOCOSCOS VCO OCOOO0O0 ODO OCWBWDOOWDOWOWOONNN NANNY 


DONA NEW 9 ODNAUE WN (OOO NAUES WN HO DDNAUESWN —OOONOUE 


| 
| 
rab Crab$w_usz) = 512; ! User buffer size | 
| 


o 


( 
file_error (exch$_readerr, .status, fab, .rab Crab$l_stvJ); 


° verror at Lbn !UL blk_cnt !UL', .rab Crab$l_bkt], .rab Crab$w_usz] / 512); | 


If read checking, reread the chunk and compare 
IF .volb Cvolb$v_read_check] 
THEN 

BEGIN | 


SSSISSI ISS 


Sabebhadadbestadudcdatadtadbabadbabad dabeacdabaiadababab ahaa bababacbatabatababchabatababahahabahiubababahababatah g 
COONOUSWN—O 


Ba Se Be Be Be Be Se Oe Be Se Se Bs Se Se Oe Se Be Ge Se Ge Se Se Se Se Ge SHS He Gs Ge oe SH SESE Se SH Ss He SESE SESH SH Se SH ae SESH Se Oe SESH Se SHS ee 


meh ee ee ee ee ee ee ce ee ee a ee el ee el el el et ee el De ee ec el el el ee el el ee el el ee el eld eld el 


PAANWAWWIAE® & BASE WWINNINNAIWIIAIIIPIPININININININ WHE & EWE WWIWIPoponony 


SSN NNN 
NOROR) — — 
NI" OOONO UE Wwr—O0Oan 


o 
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: 1651 1723 4 LOCAL | 

; 16 ¢ 1724 4 tmp_desc : VECTOR (2, LONG], ; 

; 16 1725 4 Len; | : 

; 1654 17 g 4 ig 
; 1655 17 4 ! See if the request is for block 0, if so rewind | ‘ § 
3 1928 1728 4 : : 

; 1657 1729 4 IF .lbn EQL 0 | 7 ¢ 
; 1658 1730 4 THEN :g 
; 1659 1731 5 BEGIN : ¢ 
; 1660 17 é 6 IF NOT (status = Srewind (rab = rab)) 7 ¢ 
: 1661 1733 5 THEN | : ¢ 
3 166¢ 1734 6 BEGIN : § 
3 166 1735 6 Sdebug_print_Lit ("rewind error’); : 

>; 1664 1736 6 RETURN exch$util_file_error (exch$_readerr, «Status, fab, .rab Crab$l_stv]); : é 
> 1665 1737 § END; | ig 
; 1666 1738 4 END; 2 ¢ 
; 1667 1739 4 :¢ 
: 1668 1740 4 len = 512; | i @ 
3 1669 1741 4 3 4 
; 1670 eee 4 rab Crab$l_ubf] = check_buf; ! User buffer address 2 ¢ 
; 1671 1743 4 rab Crab$w_usz] = .len; ! User buffer size 2 ¢ 
; 1076 1744 4 rab Crab$l_bkt] = .Lbn; :¢ 
; 167 1745 4 | 
3 1674 1746 4 ' Read the chunk again 34 
; 1675 1747 & ' $4 
: 1676 1748 5 if NOT (status = $read (rab = rab)) 3 
; 1677 1749 4 THEN 34 
; 1678 1750 § BEGIN | i é 
3; 1679 1751 5 $trace_print_fao (‘reread error at lbn ‘UL blk_cnt !UL", .rab Crab$l_bkt], .rab Crab$w_uszJ 3 ¢ 
; 1680 1726 5 RETURN exch$util_file_error (exch$_readcheck, .status, fab, .rab Crab$l_stv]); | 
; 1681 1753 4 END; ig 
; 1682 1754 4 3 ¢ 
3 1683 1755 4 IF CHSNEQ (.len, check_buf, .len, .adr, 0) 3 ¢ 
3 1684 1756 4 THEN | 3 ¢ 
; 1685 1757 5 BEGIN | |F| 
3 1686 L 1758 5 IF switch_trace 7 
> 1687 U 1759 5 XTHEN i 
; 1688 U 1760 5 LITERAL | ; 

3 1689 U 1761 5§ chunk = 100; $< 
3 1690 U 1766 5 LOCAL 3 4 
3 1691 U 1763 5 Ce ! count of loops 7 | 
: 1692 U 1764 5 l ! Length of string renstning ‘ 2 ¢ 
: 1693 U 1765 5 al, ! address of remainder of string 1 2; ¢ 
> 1694 U 1766 5 a2; ' address of remainder of string 2 a4 
3 1695 U 1767 2 c = 0; 3 4 
> 1696 U 1768 (= .len; | 34 
3 1697 U 1769 5 al = .adr; 3 4 
> 1698 u 1770 § a2 = check_buf; a4 
: 1699 u1771 5 ptraceor ret 100 ("pbn!SUL, cnt!3UL, adr !XL, volb !XL", .blkpbn, .blkcnt, .adr, .volb); 2 4 
: 1700 U 1o06 WHILE .t GTR 0 | 
: 1701 U 177 DO a4 
: 1708 U 1774 BEGIN 3 4 
: 170 u 1775 5 LOCAL , 3 4 
3: 1704 U 1776 5 Ll; ' Length for this loop 3 4 
: 1705 ui77?7 5§ ge .¢ * i; : 4 
: 1706 U 1778 ? LL = MINU (.L, chunk); : 4 
: 1707 U 1779 IF CHSNEQ (.U(, .al, .LL, .a2, 0) | 34 
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fOs7000 exch$io_rtil_read_1 (volb, pbn, cnt, adr) 12-8681 984 13:98:08 DISKSVMSMASTER: CEXCHNG. SRCJEXCIO. B32" r * (25 | vO 
: 1708 U 1780 THEN 2 | 

: 1709 U 1781 BEGIN : 

; 1710 U 1786 $trace_print_fao (*S4UL A o wha ehh, oOtii : 

3; 1711 U 17 $trace_print_fao (' “iar”, il, saeht ; 

: W719 U 1784 2 ND; | ; 

: 171 U 1785 l= -t = chunk; : 

> 1714 U 1786 5 al = .a1 + chunk; : 

> 1715 U 1787 5 o2 = a2 ¢ chunk; | 

: 1716 u 1788 5 END; : 

: ie 1590 8 cae 0 Lb CvolbSL_vol. ident_LenJ; | 

Ps m esc = .vo vo vo ent_len ; 

?) oe Se eee ; 

3 exc signat_ return (exc rea ra hee - tm esc : 

2 1731 1798 4 i o 

3 \?s¢ 1794 & $ 

: 17 1795 3 END; : 

+ 1724 1796 3 ; 

: 1725 1797 3 ' Move to the next block : 

: 1726 1798 3 ! 3 

: 1727 1799 3 adr = .adr + 512; ‘ 

; 1728 1800 3 lbn = .lbn + 1; 5 

; 1729 1801 3 : 

3; 1730 1308 § END; 3 

: 1731 180 : 

s 1732 1804 2 RETURN .status; $ 

: 1733 1805 1 END; : 

OFFC 00000 -ENTRY EXCHS$IO_RT11_READ_1, Save R2,R3,R4,R5,R6.- =; 1612 : 

R7,R8,R9,R10-R11 ~ ; : 

5B 000000006 8F D0 00002 MOVL weXCHE BADLOGIC, R11 : ; 

SE FDOF8 CE 9€ 00009 MOVAB <-520(SP), SP : ; 

56 04 AC DO 0000E MOVL  VOLB, R6 : 1659 3 

SA 10 A6 DO 00012 MOVL  16(R6), R10 : : 

55 14 Ab DO 00016 MOVL  20(R6), RS : 1660 : 

52 0418008 5 BF DO OOOIA MOVL 468878579, R2 + 1664 ; 

51 0233 =8F 3C 00021 MOVZWL #563, R1 : ; 

50 56 DO 00026 MOVL  R6, RO : F 

000000006 EF 16 00029 JSB EXCHSUTIL_BLOCK_CHECK : : 

54 0c AC b9 0002F MOVL = BLKCNT, > 1666 : 

09 1 999 3 BEQL 3=so1$ ; : 

0000007F = &F 4 01 000 CMPL RG, #127 : : 

OF 1B 909 C BLEQU 2$ ; : 

7E CD 6BF O9A 000 ; 1$: MOVZBL #205, -(SP) ; ; 

01 DD 0004 PUSHL : : 

38 DD 00044 PUSHL ; : 

000000006 00 03 FB 00046 CALLS RS LIBS$ST ; : 

44 A 08 Ac 01 O40 2$: CMPL BLKPEN, 38 CRS) > 1671 : 

Of 1F 905 BLSSU -3$ ; : 

7E DS «6 BFE: 9A 00054 MOVZBL #213, -(SP) ; 3 

gi DD 0098 PUSHL #1 ; : 

000000006 00 38 PB Sen CREE S RS LIBSSTOP : : 

98 08 AC 8 80088 3$: MOVL §BLKPBN, LBN : 1672 ; 


xo 
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50 57 4 00134 15$: poyt STATUS, RO : 180% 


; Routine Size: 318 bytes, Routine Base: EXCHS$IO_CODE + 0C19 
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v04-000 exch$io_rtil_write (volb, pbn, cnt, adr) 12786-1382 9:98:58 DISKSVMSMAS TER: LEXCHNG. SRCJEXC10.B32:1> (26) | 

735 1806 1 GLOBAL ROUTINE exchSio_rtil_write (volb : Sref_bblock, %SBTTL ‘exch$io_rt11_write (volb, pbn, cnt, adr)’ | 
1807 1 blkpbn, blkent, bufadr : Sref_bvector) = 


oo 


BEGIN 
+4 
! 


i FUNCTIONAL DESCRIPTION: 


Write a range of ‘‘physical"’ blocks to a random access device. Block 
numbers are in the range 0 to MaxBlocks-1. 


7 
7 
738 
739 
740 
i 
748 
744 
ot? INPUTS: 
59 volb = pointer to a volb which contains the active record stream 
748 blkpbn = starting physical block number on device 
749 blkcnt = number of blocks to write 
£20 bufadr - pointer to buffer containing the data 
P36 IMPLICIT INPUTS: 
75 
754 none 
755 
756 OUTPUTS: 
757 
758 
759 
760 IMPLICIT OUTPUTS: 
761 
62 none 
63 
4, 
5 


ROUTINE VALUE: 
success or error status 
SIDE EFFECTS: 


none 


SANS 
aon 


& 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
none 
} 
| 
| 
$dbgtrc_prefix (‘io_rtll_write> '); | 
t | 


FUN ("OC ODNA VE WIN O ODNOAOU EWN 0 OONOA UE WIN OOONOULS WOOO 


OCAL 

check_buf : Sbvector (ctx$k_buffer_length], 

7 1 ayn 

8 lbn, 

9 status 

0 PF | 

1 | 

¢ BIND : | 
fab = .volb Cvolb$a_fab] : $bblock, ! New name for File Access Block 

84 rab = .volb C[volb$a_rab] : $bblock, ! New mame for Record Access Block 

85 nam = .volb Cvolb$a_nam] : $bblock ! New name for NAM block 


$block_ check (2, .volb, yolb, 428); : ; 
$logic_check (2, (.volb tvolb$v write), 145); ! We shouldn't get this far if we aren't supposed to write t 


$trace_print_fao (" pbn!SUL, cnt!3UL, adr !XL, volb !XL*, .blkpbn, .blkcnt, .bufadr, .volb); 


Be ee Be Be Be Be Ge Be Se Se Ge Se Se Be Ge Se Be Ge Fe Se Ge Be Se Se Se Se Oe Oe Ge se Ge Se Oe Os Ge Se Se Se Se Oe Ose Oe Os Oe BH Se Se ee Se Se ee Se Se Sees es ee 
Os a ee ee et a a eh a el a a a ee ed ed dd 
ee ee ee ee ee ee ee ee ee ee ee el el ee el el cel el el el el el el el cel el eel el el el el cl cl eel el el el el cl eel ell lt el eel el cel cel eel 
0.00 09 09 09 00 Od Od 09 OD CD Cd Cd Cd OD 09 OS Od 09 09 09 OD Od CD Od OD OD OD 09 CD OD CD OD OD 0D 0D OD OD OD CD OD CD CD 09 C9 CD 0D 00 C0 CD CD CD CD CD OD 


DODD BBB BBE EB RWWA KWON POPUP) 2 


m—OOOnNOu 


<m 
ex 
oO 
‘x 
35 
oO 
od 
xO 


P 4 Page 
Sio_rtil_write (volb, pbn, cnt, adr) 14-Sep-1984 DISKSVMSMASTER: LEXCHNG. SRCJEXC10.832;1> (29 
Adjust the externally useful block count to the RMS required byte count | 
| 


$logic_check (2, (.plkent GTRU 0) AND (.blkent LEQU 127)), 112); 
bytecnt = .blkcnt * 512; 


7 

| 
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C 2:29: | 


000 
VIEW 


LF 


98 ! Adjust the externally useful ‘‘physical’’ block number to the RMS required 

+4 Logical block number 

01 Slogic_check (2, (.blkpbn LSSU .volb Cvolb$l_volmaxblock]), 113); 

o¢ Lbn = .blkpbn; ! Assume volume relative Lbn. 

0 IF .volb Cvol6$v_virtual) 

04 THEN 

05 lbn = .lon + 1; ! File-relative virtual block numbers 


| 
} See if the request is for block 0 | 
if .lbn EQL 0 
THEN 
BEGIN 
! Since BKT = 0 means yt gah read, we must trick it with the 
documented technique of REWIND, then set BKT=0. 
IF NOT (status = Srewind (rab = rab)) 
THEN 
} 
| 


BEGIN 
seepua pr ine Lit (‘rewind error’); 


mon exch$util_file_error (exch$_writeerr, -Status, fab, .rab Crab$l_stv]); 
END; 
Set the RMS record stream buffer and block parameters 
rab Crab$l_rbf] = .bufadr; '! Record buffer address 
rab Crab$w_rsz] = | pati ! Record buffer size 
rab Crab$l_bktJ = .lbn; 


He Se Ge Oe Ge Fe Ge Se Se Oe Be ae Ge Ge Se Ge Se Ge Se SF Se Se Ge Ge Ge Sees SH S6 Se Ge SH S6 ee FHS Se Ses os 


Write the chunk 
iF NOT (status = $write (rab = rab)) 
THEN 


0 09 Co 09 Ce C9 Od C0 CD OD CO 0909000000 00.00 09 09 09 09 09 CD CD: ~ ~ 
WN "DO OONAUVUEWN —OVOONOUSW—OV0On 
DOOODOODOOOOOOOOOOOOOMMDdc 2 09 09 09 0D C0 OD OD Cd OD CD 09 C0 OD OD CD CD CD 09 CD C9 0D. CD CD CD CD CD CD CD OD 
b SOOOOSOSOSOS O00 0000 OO OW 60 00 09 09 909 09 SIN NII NINN NINO AAA 
DWONOAOU EWN OOD NAVE WIN OO OONAU EWN 3 O ODNAU EWN (OO ONAYU EWN "OOONOUSW FTI 
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; 1835 BEGIN 

: 1836 $trace_print_fao (‘error at lbn !UL blk_cnt !UL", .rab Crab$l_bkt], .rab Crab$w_rsz]) / 512); 

3 * $Scheck_call 4, exch$util_file_error, exch$_writeerr, .status, fab, .rab Crab$l_stvJ); 

3 +44 : If the error is a simple WER write error, try to rewrite it using single block 1/0 

3 1841 1 IF .status EQL rms$_wer 

3 aes 1 THEN 
3; 184 1 BEGIN 

>; 1844 1 LOCAL 

3 See 1 stv, 

6 1 stat_1; 

3 1847 1 stv = .rab Crab$l_stv); | 

; 1848 1 stat_1 = exch$io_rtll_write_1 (.volb, .blkpbn, .blkcnt, .bufadr); 
; 1849 1 IF .stat_1 


Se te ee ee Se Se oe 
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3 1830 1920 4 HEN ; 
>; 1851 P1921 4 Sexch_signal (exch$_writeerrrec, 2, .volb Cvolb$l_vol_ident_lenJ, volb Cvolb$t_vol_ident], 
3 1826 19 ¢ & -Status, .stv); 
; 185 19 4 RETURN .stat_1; 
> 1854 1924 4 END 
1886 13 3 d ! If th i thi L ignal it and | 
: : e error is anything else, signal it and return 
: 1857 1957 gi Sy . | 
; 1858 1928 ; 
; 1859 1929 RETURN exch$util_file_error (exch$_writeerr, .status, fab, .rab Crab$l_stvJ); | 
; 1860 1930 ND; 
: 1861 193) 
; 186¢ 1° ¢ : If write checking, reread the chunk and compare | 
; 1864 M3 ee IF .volb Cvolb$v_write_check] 
; 1865 1935 THEN 
> 1866 1936 BEGIN 
: 1867 1937 LOCAL 
: 1868 1938 len; 
> 1869 1939 
; 1870 1940 3 ! See if the request is for block 0, if so rewind 
; 1871 1941 ' | 
; 1376 1908 IF .lbn EQL 0 
; 187 194 THEN 
> 1874 1944 4 BEGIN é 
; 1875 1945 5 IF NOT (status = Srewind (rab = rab)) 
; 1876 1946 4 THEN 
: 1877 1947 5§ BEGIN ; 
; 1878 1948 5 semua pring itt ("rewind error’); 
; 1879 1949 5 RETURN exch$util_file_error (exch$_readerr, -Status, fab, .rab Crab$l_stv]); 
: 1590 1950 4 END; 
; 1881 1951 END; 
; 1o36 1936 
; 188 195 Len = .bytecnt; 
>; 1884 1954 
>; 1885 1955 rab Crab$l_ubf] = check_buf; ! User buffer address 
>; 1886 1956 3 rab Crab$w_usz] = .len; 
; 1887 1957 rab Crab$l_bktJ = .lbn; 
; 1888 1958 
>; 1889 1959 ! Read the chunk again 
; 1890 1960 3 : 
; 1891 1961 4 IF NOT (status = $read (rab = rab)) 
; 1936 1236 3 THEN | 
3 189 19635 4 BEGIN 
3 1894 1964 4 $trace_print_fao (‘reread error at lbn !UL .blk cnt !UL*, .rab Crab$t_bkt), .rab Crab$w_usz] / 51) 
3; 1895 1965 4 $check_call 4, exch$util_file_error, exch$_writecheck, .status, fab, .rab Crab$l_stvJ); 
3: 1896 1966 4 IF .status EQL rms$_rer 
; 1897 1967 4 THEN 
; 1898 1968 BEGIN 
; 1899 1969 LOCAL 
: 1900 1970 stv, 
: 1901 1971 stat_1; 
; 1306 1ae6 é stv = .rab Crab$l_stv); 
; 190 197 stat_1 = exch$io_rtli_write_1 (.volb, .blkpbn, .blkcnt, .bufadr); | 
3 1904 1974 IF .stat_1 
3 1905 1975 THEN : ; A : 
3 1906 P 1976 Sexch_signal (exch$_writecheckrec, 2, .volb Cvolb$l_vol_ident_len], volb RuathGe soil, Stent), | 

| 
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; 1907 1977 »Status, .stv); | ‘ 
; 1908 197 RETURN .stat_1; ‘ 
: 1909 197 EN : 
; 1910 44 4 ELSE : 
; 1911 1981 4 RETURN exch$util_file_error (exch$_writecheck, .status, fab, .rab Crab$l_stvJ); : 
WM BR zs ea: 
; 1914 1986 IF CHSNEQ (.len, check_buf, .len, .bufadr, 0) | ‘ 
: 1915 1985 THEN | : 
; 1916 1338 4 BEGIN PF 
; 1917 L 1987 4 ZIF switch_trace | : 
; 1918 U 1988 4 THEN : 
; 1919 U 1989 4 LITERAL ; 
; 1920 U 1990 4 chunk = 100; ‘ 
; 1921 U 1991 4 LOCAL : 
3 39 ¢ U 1336 4 C. ! count of loops : 
; 19 U 19935 4 l ! Length of aareag eh en : 
: 1924 U 1994 4 al, : address of remainder of string 1 ; 
3; 1925 U 1995 4 a2; ! address of remainder of string 2 : 
: 1926 U 1996 4 ¢ = 0; | 
: 1927 U 1997 4 t= .len; 
; 1928 U 1998 4 al = .bufadr; : 
3 9 U 1999 4 a2 = check_buf; ; 
3; 1930 U 2000 4 ty ee gf ("pbn!SUL, cnt!3UL, adr !XL, volb !XL"', .blkpbn, .blkcnt, .bufadr, .volb); : 
: 1931 U 2001 4 WHILE .l GTR 0 : 
; 193% U OOe 4 DO 3 
; 193 U 2003 4 BESIN : 
3 1934 U 2004 4 LOCAL | : 
; 1935 U 2005 4 Ll; ! Length for this loop : 
3; 1936 U 2006 4 ge .4 + i : 
3; 1937 U sat 4 LL = MINU (.L, chunk); : 
: 1938 u 2008 4 IF CHSNEQ (.L{, .a1, .LL, .a2, 0) ; 
3; 1939 U sotp & THEN : 
3 1940 u 2010 4 BEGIN ; 
; 1941 U 2011 4 $trace_print_fao (*!4UL ‘IAF’, .c, .Ll, .al); : 
; a : Big ; $trace_print_fao (' tinge, UC, .ad); : 
3 1944 U 2014 4 l= .l = chunk; 3 
3 1945 U 2015 4 al = .al + chunk; : 
; 1946 U sors 4 a2 = .a2 + chunk; ; 
3 1947 U 2017 & END; A 
3 1948 018 4 XFI | : 
3 1949 019 5 BEGIN : 
: 1950 $30 é LOCAL 

; 1951 1 7 oo : 

3 1936 0 § stat_1 = exch$io_rtll_write_1 (.volb, .blkpbn, .blkcnt, .bufadr); 

3; 195 0 IF .stat_1 

: 1954 024 THEN : | 

; 1955 5 $Sexch_signal (exch$_writecheckrec, 2, .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident)); 

; 1336 359 i Aya -stat_1; 

> 1958 028 END: | 

<n eo 

> 1961 031 2 RETURN .status; 

3 1962 032 END; 
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$STOP 
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R11 
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ahs, -(SP) 
BEXCHS BADLOGIC 
#3, LIBSSTOP 


aL 
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1, SYSS$REWIND 
STATUS 

STATUS, 8$ 

BUFADR, R6 

R6, 40(R3) 

BYTECNT, 34(R3) 

L N, 56(R3) 

#1, SYSSWRITE 

RO, STATUS 
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STATUS, #114964 
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000000006 00 0 Fe 180 CALLS #6, LIBSSIGNAL : | 
45 1 194 BRB 1g + 1981) 
o¢ AZ DD 196 13$: PUSHL 12(R3) : | 
4 AE DD 0019 PUSHL  4(SP) : 
DD O19¢ PUSHL STATUS : | 
000000006 BF DD 19 PUSHL #EXCHS$_WRITECHECK : 
000000006 EF 4 FB at 148: CALLS #4, EXCHSUTIL_FILE_ERROR : | 
66 08 AE 57 23 1AC 15$: CMPC3 LEN, CHECK_BUF, (R6) > 1986 | 
¢ 13 00181 BEQL $ : 
6 DD 001B PUSHL R6 > 2022) 
9 DD 001B PUSHL R9 : 
0810 8F BB 001B PUSHR #*M<R4,R11> : 
0000v cf 04 FB 001B CALLS #4, EXCHSIO_RT11_WRITE_1 : 
: 50 00 001C OVL RO, STAT_1 : | 
1 52 34 001¢ LBC —-STAT_1, T6$ : 2023, 
69 AG SF 00106 PUSHAB 105(R45 + 2025 | 
65 Ad DD 001C9 PUSHL  101(R4) : | 
02 oD O01¢¢ PUSHL #2 : 
000000006 8F DD OOICE PUSHL #EXCHS_WRITECHECKREC : 
000000006 00 04 FB 00104 CALLS #4, IGNAL : 
50 52 D0 00108 16$: MOVL  STAT_1, RO + 2026 
04 001DE RET : 
50 55 DO OO1DF 17$:  MOVL = STATUS, RO > 2031 
04 001E2 RET + 2032 


; Routine Size: 483 bytes, Routine Base: EXCHS$IO_CODE + 0D57 
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: 1964 033 1 GLOBAL ROUTINE exch$io_rtl1_write_1 (volb : $ref_bblock, ZSBTTL ‘exch$io_rtil_write_1 (voll. pbn, cnt 
; 1965 034 1 blkpbn, blkcnt, bufadr : $ref_bvector) = 
; 1966 035 BEGIN 

3; 1967 0 $ '++ 

>; 1968 0 : 

; 1398 8 3 FUNCTIONAL DESCRIPTION: 

: 1971 040 ' Write a range of ‘‘physical’’ blocks to a random access device. Block 
; 1376 041 : numbers are in the range 0 to MaxBlocks-1. Blocks are written one at 
3; 197 ong ! a time to find exact pbns of bad blocks 

3: 1974 04 ‘ 

3; 1975 Spee ' INPUTS: 

: 1976 045 ! 

3; 1977 2046 ! volb = pointer to a volb which contains the active record stream 
; 1978 2047 ! blkpbn = starting physical block number on device 

; 1979 2048 2! bikcnt = number of blocks to write 

; 1980 2049 2! bufadr = pointer to buffer containing the data 

3; 1981 2050 2! 

3 13e¢ 2051 2 ! IMPLICIT INPUTS: 

; 198 $026 e ! 

3 1984 2055 2! none 

: 1985 2054 2! 

; 1986 2055 2 ! OUTPUTS: 

3; 1987 2056 2! 

3; 1988 2057 2! none 

3 1989 2058 2! 

; 1990 2059 2 ! IMPLICIT OUTPUTS: 

3 1991 2060 2! 

3 18 2061 2! none 

; 199 Spee e! 

3: 1994 2065 2 ! ROUTINE VALUE: 

: 1995 2064 2! 

3; 1996 2065 2! success or error status 

3; 1997 2066 2! 

; 1998 2067 2 ! SIDE EFFECTS: 

3; 1999 2068 2! 

; 2000 2069 2! none 

; 2001 2070 2 !-- 

; sai) 2071 2 . . - 

; 200 2072 2 $dbgtrc_prefix (‘io_rtll_write_1> '); 

: 2004 2073 2 

; 2005 2074 2 LOCAL 

3; 2059 2075 2 check_buf : $bvector (512), 

3; 2007 $958 § adr, 

3; 2008 077 lon, 

3; 2009 078 5 status 

3; 2010 079 : 

3: 2011 080 2 

; sols spe; § BIND 

; 201 bas fab = .volb Cvolb$a_fab] : $bblock, ! New name for File Access Block 

3 2014 08 rab = .volb t+ eles, : $Sbblock, ! New name for Record Access Block 
; Bi? oes nam = .volb [volb$a_nam] : $Sbblock ! New name for NAM block 

3 O17 pee 

: 2018 08 $block_check tg. -volb yolb 562); : ; 
3 sah 43 $logic_check (2, (.volb volb$v_write]), 170); |! We shouldn't get this far if we aren't supposed to write t 
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; 2021 2090 2 $trace_print_fao (" pbn!SUL, cnt!3UL, adr !XL, volb !XL", .blkpbn, .blkcnt, .bufadr, .volb); 
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991 Slogic_check (2, ((.blkcent GTRU 0) AND (.blkcnt LEQU 127)), 185); 

09 ' Adjust the externally useful ‘‘physical’’ block number to the RMS required 

bo¢ logical block number 

096 Slogic_check (2, (.blkpbn LSSU .volb Cvolb$l_volmaxblock]), 193); 

09 Lon = .blkpbn; ' Assume volume relative Lbn. 

098 IF .volb Cvolb$v_virtual3 

100 Lon = .lbn + 1; ! File-relative virtual block numbers 


See if the request is for block 0 
if .lbn EQL 0 
THEN 

BEGIN 


! Since BKT = 0 means yg read, we must trick it with the 
documented technique of REWIND, then set BKT=0. 


if NOT (status = Srewind (rab = rab)) 
THEN 


BEGIN 
pdebuapring UTE (‘rewind error’); : 
oo exch$util_file_error (exch$_writeerr, Status, fab, .rab Crab$l_stvJ); 


| 
END; 
Prepare for the loop 

| 


rab Crab$w_rsz] = 512; ! Record buffer size 
adr = .bufadr; 


+ cnt FROM .blkcnt-1 TO 0 


BEGIN 

: Set the RMS record stream buffer and block parameters 

rab rebel _rbty = .adr; ! Record buffer address 
rab Crab$l_bkt] = .lbn; 


: Write the chunk 
if NOT (status = $write (rab = rab)) 
THEN 

BEGIN 


$trace_print ‘90 


ie (‘error at Lbn !UL blk_cnt !UL*, .rab Crab$l_bkt], 
Ag exch$util_fil LL 


i ~ -rab Crab$w_rsz] / 512); 
e_error (exch$_writeerr, .status, fab, .rab Crab$l_stvJ); 


If write checking, reread the chunk and compare 
if .volb Cvolb$v_write_check] 
THEN 

BEGIN 
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080 LOCAL 
081 tmp_desc : VECTOR (2, LONG], 
BS len; : 
Oee See if the request is for block 0, if so rewind 
086 IF .lbn EQL 0 
087 THEN 
088 BEGIN 
089 IF NOT (status = $rewind (rab = rab)) 
090 THEN 
092 Sdebug_print ind 

ebug_prin ‘rewind error’); 
209 RETU N 
2094 END; 
2095 END; 
2096 
097 len = 512; 
098 
099 rab Crab$l_ubf] = check_buf; 

rab Crab$w_usz] = .len; 
rab Crab$l_bkt] = .Lbn; 


Read the chunk again 
if NOT (status = $read (rab = rab)) 
THEN 


BEGIN : 
$trace_print_fao (‘reread error at Lbn !UL 


IF CHSNEQ (.len, check_buf, .len, .adr, 0) 
THEN 


BEGIN 
ZIF switch _trace 
THEN 


' count of Loops 
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r ce_pr int _ {ee ("pbn!SUL, cnt!3UL, adr !XL, 
ILE .l GTR O 
dO 
BEGIN 

00 LOCAL 
01 Ll; ! Length for this loop 
4 ¢e .¢ ¢ ts 
0 LL = MINU (.L, chunk); 
04 IF CHSNEQ (.L(, .a1, «LL, .a2, 0) 
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DISKSVMSMASTER: CEXCHNG.SRCJEXCIO.B32;1 (29 


Lit ( 
exch$util_file_error (exch$_readerr, «Status, fab, .rab Crab$i_stv]); 


' User buffer address 


fa n blk cnt !UL', .rab Crab$l_bkt], .rab Crab$w_usz] 
a exch$util_file_error (exch$_writecheck, .status, fab, .rab Crab$l=stvJ); 


' 
l : Length of atring — 
al, : address of remainder of string 1 
@ ae; : address of remainder of string 2 
= .len; 


volb !XL*, .blkpbn, .blkcnt, .adr, .volb); 


| 
| 
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EXCHS$IO 10 - Device and File 1/0 routines 16-Sep-1984 01:02:3 VAX-11 Bliss-32 V4.0-742 71 

v04-000 exch$io_rtil_write_1 (volb, pbn, cnt, adr) 14-Sep o=19 4 oy: 96: 3 DISKSVMSMASTER: CEXCHNG. SRCJEXCIO. B32. 79 *(29) | 
: 2137 U 2205 2 EN 3 
; 2138 U Be BEGIN F 
; 2139 U 220 2 $trace_print_fao CoML ART, oC, obly oat); ; 
: Pe : $8 2 $trace_print_fao (' “a, ehts Oeil ; 
: 14¢ U 2210 3 l=. © chunk: ; 
: 214 U 2211 al = .al + chunk; : 
3 2144 U ig 5 a2 = .a2 + chunk ; 
Be URE ee fea 
: 2147 2215 tmp_desc £0) = .volb Cvolb$l_vol_ident_lenj; : 
; 2148 18 2 tmp-desc [1] = volb Cvolb$t_vol_tdentJ: ; 
> 2149 1 $Sexch signal (exch$_writecheck, 1, tmp_desc); : 
: 2150 18 5 RETURN 1; : 
3: 2151 219 4 3 3 
i 2152 220 | : 
: 5182 $5) 3 a 
: ! Move to the next ock } : 
s135 BEBE $s move to the next ae: 
: 5157 225 $0 adr = wade + 512; | ; 
: $128 2226 3 lLobn = .lbn + 1; ; 
3; 2159 eee? 3 : 
Phe 2S piting Sl, 
3 5106 $533 2 RETURN .status; | , 
; 216 2231 1 END; | ; 
; 
OFFC 00000 -ENTRY EXCHSIO_RT11_WRITE_1, Save R2,R3.,R4,R5,R6,—- ; 2033 | : 
R7,R8,R9,R10,R11 3 : 
58 000000006 BF DO 00002 MOVL HEXCHS BADLOGIC, R11 : : 
2p DF8 CE 9E 00009 MOVAB =520(SP), SP 3 : 
56 AC 00 QOO0E MOVL VOLB, R6 ; 2082 ; 
5A 10 A6 DO 00012 MOVL  16(R6), R10 : : 
55 14 A6& DO 00016 MOVL 20(R6), R5 : 2083 ; 
52 041B00F3 8F BP QOO1A MOVL 468878579, R2 : 2087 5 
51 0232 =8F C 00021 MOVZWL #562, RI : 3 
50 56 DO 00026 OVL R6, RO Z 3 
000000006 EF 16 00029 JSB EXCHSUTIL BLOCK_CHECK : | : 
OF 48 A6 g3 0002F #5, 72(R6), 1$ : 2088 | : 
7E AA BF 9A 000 MOVZBL #170, -(SP5 : 3 
91 DD 900 8 1 : 3 
B ODD A PUSHL R11 s : 
00000000G 00 03 F Bn0 CALLS #3, LIBSSTOP F 3 
54 0c AC D 0043 1$ MOVL BLKCNT, R4 ; 2091 $ 
09 13 0004 BEQL 2s 3 3 
0000007F 8F 54 Dl 8 49 CMPL R4, #127 : é 
F 1B BLEQU 3 g 
7E B9 F 9A 00052 2$ MOVZBL 2)85. -(SP) ; é 
1 OOD 88 PUSHL 40 ; - 
8 DD PUSHL : | : 
000000006 00 03 FB B04 CALLS a3 LIBSST 3 3 
44 6 08 AC D1 00061 3$ CMPL BLKPBN, SB ers) ; 2096 $ 
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EXCHS$I1O 10 = Device and File 1/0 routines 16-Sep-1984 01:02:33 VAX-11 Bliss-32 V4.0-742 73 

v04-000 exch$io_rtil_write_1 (volb, pbn, cnt, adr) 14-Sep-1984 12:29:05 DISKSVMSMASTER: CEXCHNG. SRCIJEXCIO. 832; 7 * (29) 
000000006 00 03 FB 00130 CALLS #3, LIBSSIGNAL : 
50 01 00 abe: MOVL #1, RO : 
04 00147 RET : 
59 0200 C9 9E 00148 13% MOVAB 512(R9), ADR > 
58 06 Baier INCL LBN : 
02 54 F4 OO14F 148: SOBGEQ CNT, 15$ ; 
03 11 00152 BRB 16$ 
FF49 31 00154 15$: BRW 7$ : 
50 57 DO 00157 168: MOVL STATUS, RO 2230 . 

04 OO15A RET 2231 

; Routine Size: 347 bytes, Routine Base: EXCHS$IO_CODE + OF3A 
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10 = Device and File 1/0 routines 
exchS$io_rtil_write_1 (volb, pon, cnt, adr) 


3538 0 Elton 


roe 
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-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 


Name Bytes Attributes 
EXCH$10_CODE 4245 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
EXCHSIO_PLIT 144 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
ee - Syabols «o<-<--- Pages Processing 

File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 40 0 1000 00:01.9 
“$255$DUA28: CEXCHNG. OBJ JEXCLIB.L32;1 1151 67 5 79 00:01.4 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:EXC1O/OBJ=0BJ$:EXCIO MSRC$:EXCIO/UPDATE=(ENH$:EXCIO) 
4245 code + 144 data bytes 
01:18.0 


; Lines/CPU Min: 171 
; Lexemes/CPU-Min: 25001 


Used: 200 pages 
ation Complete 
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